Program Pzim ;
var
w,e,r,t,u:real;
x,lin,g:integer;
 Begin
 x:=2;
 lin:=2;
 g:=1;
 repeat
  write('lol');
  clrscr;
  g:=random(99); 
   x:=x+random(888);
   gotoxy((x),(g));
   write(x+lin);
  until keypressed
 End.