Составьте программу возведения в квадрат всех целых чисел от 0 до 50.1 )использовать цикл с предусловием.2 )использовать цикл с постусловием.3 )использовать цикл с параметром.

Program sqr;
Var i:integer;
begin
  while i <= 50 do //1)
    begin
      write(i*i, ' ');
      Inc(i);
    end;
  i:=0;
  writeln;
  repeat         //2)
    write(i*i, ' ');
    Inc(i);
  until i > 50;
  writeln;
  for i:=1 to 50 do write(i*i, ' '); //3)
end.