85. Вывести на монитор квадраты чисел от 1 до 10.

Program kvadrat;
var
   i: integer;
begin
   for i:=1 to 10 do
     writeln (i*i);
end.