Информатика. Паскаль. Вывести квадрат чисел от 1 до 10

program zz1;

var r, i : integer; / / задаем переменные целого типа

begin

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

begin

r:=i * i; / / вычисляем квадрат очередного числа, умножая его на себя

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

end;

end.