Question

составить программу вывода на экран квадратов N. N=10.

Answer 1

var n;
begin
writeln('n='); readln(n);
n:=n*n;
write('n=', n)
end.

Answer 2

program sq;
const
N = 10;
begin
writeln(Power(n, 2));
end.