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

Question

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

Answer 1

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