Question

вычеслить все квадраты двухзначных чисел не привышаюших 100

Answer 1

program kvadrat;

var i : integer;

begin

for i:= 10 to 100 do

writeln ( i:2, i*i : 5);

readln;

end.