напечатай числа от 26 в квадрате до тринадцати в квадрате

program kvadrat;
var i: integer;
begin
for i=26 to 30 do
   writeln (i, '^2=', i*i);
end.