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

 # Код на ruby 2.2.3p173
for i in 1..10
    puts i**2
end

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