Вывести на экран квадраты натуральных чисел от 10 до 20

program zz1;

var a, i:integer; / /заводим переменные

begin

for i:=10 to 20 do / /организуем цикл всех натуральных чисел от десяти до двадцати

begin

a:=i*i; / /получаем квадрат очередного натурального числа

write (a,' '); / /выводим ответ в строчку через пробел

end;

end.