uses crt;
var i,n:integer;
Begin
ClrScr;
i:=1;
Write('Введите N >');
Readln(n);
Repeat
writeln('Квадрат ', i, ' = ', sqr(i));
inc(i)
until i>n;
readln;
end.
uses crt;
var i,n:integer;
Begin
ClrScr;
i:=1;
Write('Введите N >');
Readln(n);
Repeat
writeln('Квадрат ', i, ' = ', sqr(i));
inc(i)
until i>n;
readln;
end.