var a,i:integer;
begin
write('До какого числа? '); readln(a);
for i:=1 to a do
writeln('Квадрат числа ',i,' = ',sqr(i));
end.
var a,i:integer;
begin
write('До какого числа? '); readln(a);
for i:=1 to a do
writeln('Квадрат числа ',i,' = ',sqr(i));
end.