Заполните таблицу,чтобы в каждой строке таблицы результат исполнения команд For и While был одним и тем же.

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