uses crt,graph;
var
r1,r2,r3,r4:longint;
i,karta,tryb:integer;
procedure dlugosc;
 begin
 writeln('podaj dlugosc ');
 read(r1);
 end;
procedure graf;
 begin

  karta:=0;
  tryb:=0;
  initgraph(karta,tryb,'c:\bp\bgi');
  setbkcolor(7);
  setcolor(4);
  repeat
  clrscr;
  r4:=r4+5-2;
  r3:=r3+18*2;
  r2:=r2+50;
  r1:=r1+3;
  line(r3,r2,r1,r3);
  delay(100);
  until r2>250;
  readln;
  closegraph;
 end;
begin
 {dlugosc;}
 clrscr;
 r2:=r1;
 graf;
 
end.