Написать программу, выводящую на экран целые числа от 1 до n

program zz1;

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

begin

write( введите заданное n );  // вводим с клавиатуры число

read(n);  

i:=1; // задаем изначальное значение для параметра цикла

while i lt;= n do // организуем цикл, пока параметр цикла не достигнет заключительного значения

begin

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

i:=i + 1; // увеличиваем параметр цикла на единицу

end;

end.