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)
