Помогите сделать..8 класс

1) for x:=1 to 30 do writeln(x);
2) x:=-5
   while x<=8 do begin
      y:=abs(x);
      writeln(y);
     x:=x+1;
   end;
3) for x:=10 downto 3 do writeln(x);
4) x:=30
    while x>=1 do begin
        y:=y*y;
        writeln(y);
     x:=x-1;
   end;

спасибо