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

var a, i : integer;beginwrite (\'Введите количество чисел: \');readln (a);for i := 1 to a do // Используем цикл со счётчиком (i). Вводить дополнительные begin/end в данном случае не нужно, так как в цикле присутствует только один оператор вывода.writeln (i * i); // i * i ⇔ i ^ 2.end.