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

program prog11;
uses crt;
var i: byte;
begin
 clrscr;
 i:=0;
 repeat
   write(i);
   inc(i);
 until i>9;
readln;
end.