uses crt,graph;
var
driver,bzdura:integer;
x1,x2,y1,y2,x3,y3:longint;
begin
 clrscr;
 driver:=0;
 bzdura:=0;
 initgraph(driver,bzdura,'c:\bp\bgi');
 outtext('Podaj x i y punktu poczatkowego');
 outtextxy(5,20,' x: ');
 outtextxy(150,20,' y: ');
 gotoxy(5,2);
 read(x1);
 gotoxy(23,2);
 read(y1);
 {outtextxy(1,45,'Podaj x i y punktu koncowego');
 outtextxy(5,68,' x: ');
 outtextxy(150,68,' y: ');
 gotoxy(5,5);
 read(x2);
 gotoxy(23,5);
 read(y2);  }
 moveto(200,200);
 linerel(x1,y1);
 randomize;
repeat
 x3:=random(10);
 y3:=random(10);
 if x3>7 then
  begin
   x3:=x3-30;
  end;
 if y3>7 then
  begin
  y3:=y3-20;
  end;
 linerel(x3,y3);
 delay(100);
until keypressed;
 readln;
 readln;
end.