Код ниже
Объяснение:
program showSquared;
var N, i: integer;
begin
writeln('Введите число N');
readln(N);
for i := 1 to N do begin
writeln('Квадрат числа ', i, ' равен ', sqr(i));
end;
end.
