Какое число будет выведено на экран после выполнения этого фрагмента x:=0 y:=x+2
for i:=2 to 4 do
begin
x:=x+1
y:=y+2
end
y:=y-x
x:=x+y​

y=5

x=11

Объяснение:

program m;

uses crt;

var a,b,c,sum: integer;

begin

clrscr;

readln(a,b,c);

sum: =a+b+c;

writeln('          ',sum);

readkey;

end.

var

  n,i,z: integer;

begin

  readln(n);

for i: =1 to n do if n mod i=0 then inc(z,i);

writeln(z);

end.