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

var a, i : integer;

begin

write ('Введите количество чисел: ');

readln (a);

for i : = 1 to a do / / Используем цикл со счётчиком (i). Вводить дополнительные begin/end в данном случае не нужно, так как в цикле присутствует только один оператор вывода.

writeln (i * i); / / i * i ⇔ i ^ 2.

end.