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

program prog16;
uses crt;
var i: byte;
begin
 clrscr;
 i:=0;
 while i<10 do
 begin
   write(i);
   inc(i);
 end;
 readln;
end.