Question

ПОМОГИТЕ!!! ИНФОРМАТИКА!
написать программу на паскале для вывода на экран квадратов всех натуральных чисел, не превосходящих 50

Answer 1

var
i: integer;
Begin
for i:=1 to 50 do begin
Writeln(i*i);
end;
end.