program kvadr_nat; var i, n: integer; begin write('Input N >'); readln(n); for i:=1 to n do writeln(i,'^2=',sqr(i)); readln end.
Яндекс