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

Дмитрий

Какое значение будет принемать значение 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. 
пожалуйста напишите подробное решение и как получаются ответы