uses crt;
var
a:integer;
begin
     clrscr;
     writeln('08-');
     randomize;
     repeat
           a:=random(10);
           gotoxy(4,1);
           writeln(a);
           delay(10000);
     until a=9;
     repeat
           a:=random(10);
           gotoxy(5,1);
           writeln(a);
           delay(10000);
     until a=3;
     repeat
           a:=random(10);
           gotoxy(6,1);
           writeln(a);
           delay(10000);
     until a=7;
     repeat
           a:=random(10);
           gotoxy(7,1);
           writeln(a);
           delay(10000);
     until a=2;
     repeat
           a:=random(10);
           gotoxy(8,1);
           writeln(a);
           delay(10000);
     until a=8;
     repeat
           a:=random(10);
           gotoxy(9,1);
           writeln(a);
           delay(10000);
     until a=4;
     repeat
           a:=random(10);
           gotoxy(10,1);
           writeln(a);
           delay(10000);
     until a=5;
     readkey;
end.