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

program zz1;

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

begin

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

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

begin

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

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

end;

end.