Question

Дано натуральное число N, написать программу, которая выводит на экран последовательность квадратов чисел от 1 до N.

Answer 1

Program Pr1;
uses crt;
var i,n,p:integer;
Begin
clrscr;
readln(n);
for i:=1 to n do writeln(sqr(i));
end.