Question

Составить программу которая выводит на экран столбиком квадраты всех чисел от 10 до 17

Answer 1

Var i:integer;
begin
for i:=10 to 17 do
writeln(i,'^2=', i*i);
end.