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

program _1;

var i: Integer;

begin

for i:=1 to 5 do

writeln (i);

writeln ('программа выполнена');

readln;

end.

Задание 1. Изменить программу так, чтобы она выводила произвольное количество цифр (число N).

program _1;

var

   i, N: Integer;

begin

   readln(N);

   for i := 1 to N do  

       writeln(i);  

   writeln('программа выполнена');  

   readln;  

end.  

пж как лучший