Напечатать "столбиком" все целые числа от 40 до 54 ( на

program zz1;

var c:integer; // задаем переменную целого типа

begin

c:=40; // задаем начальное значение для переменной цикла

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

begin

writeln(c);  // выводим ответ в данном формате

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

end;

end.