которая
выводит на экран все числа в
диапазоне от 99 до 79

var n: real;

begin

 n := 99;

 while n>=79 do begin writeln (n); n:=n-1;

 end;

end.

program z1;

var i: integer;

begin

for i:=99 downto 79 do write(i,'  ')

end.

Объяснение:

Программа выводит целые числа в строку

Для вывода в столбик надо заменить write(i,'  ')  на writeln (i)