Какое значение будет принемать значение Y после выполнения фрагментов программы:

1. var x,y: INTEGER;

BEGIN

y:=0;

for x:=1 to 9 do

y:=y+x;

writeln(y=,y);

END.

2.var x,y: INTEGER;

BEGIN 

y:=0;

for x:=10 downto 5 do

y:=y+1

writeln(y=,y);

END

3. var x,y: INTEGER;

BEGIN

y:=1;

x:=15;

while x>5 do

begin 

  x:=x-3;

  y:=y*x;

end;

writeln(y=,y)

END.

4. var x,y: INTEGER;

begin

   y:=1;

   x:=10;

repeat

   y:=y*x+x;

   x:=x-2;

until x<0;

writeln(y=,y);

end. 

пожалуйста напишите подробное решение и как получаются ответы