Question

программа с предусловием "выведите квадрат натуральных чисел, не певышащих 50" на языке паскаль

Answer 1

Var
A:integer;
Begin
For A:= 1 to 50 do
    WriteLn(A*A);
End.