Все лабораторные работы по паскалю / 2 лаб. Структурные операторы / p05

program p05;
uses crt;
var i: byte;
begin
 clrscr;
 i:=9;
 repeat
   write(i);
   dec(i);
 until i=-1;
readln;
end.