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

Вопрос от посетителя:

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

Илюха отвечает:

program kvadrat;

var i : integer;

begin

for i:= 10 to 100 do

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

readln;

end.