Составить программу которая выводит на экран столбиком квадраты всех чисел от 10 до 17
Var i:integer; begin for i:=10 to 17 do writeln(i,'^2=', i*i); end.