uses graph, crt;
const grtegur=270.0;
keskx=300; kesky=250;


procedure joonista_post(ax, ay, az, vx, vy, vz: integer);
   var nx, ny, nz: integer;
   begin
    nx:=ax-vx; ny:=ay-vy; nz:=az-vz;
    if nz>0 then
      rectangle(keskx+round(nx*grtegur/nz), kesky-round(ny*grtegur/nz),
            keskx+round((nx+10)*grtegur/nz), kesky-round((ny-100)*grtegur/nz));
   end;

procedure joonista_postid(vx, vy, vz: integer);
var kaugus: integer;
begin
 kaugus:=500;
 while(kaugus<2000)do
 begin
       joonista_post(-300, 100, kaugus, vx, vy, vz);
       joonista_post( 100, 100, kaugus, vx, vy, vz);
       kaugus:=kaugus+100;
 end;
end;

var d, m: integer;
 mx, my, mz: integer; {vaataja koordinaadid}
 c: char;
begin
 d:=detect; initgraph(d, m, '');
 mx:=0; my:=0; mz:=0;
 outtextxy(5, 10, 'liigutamiseks klahvid k, j, l, h, i, m');
 repeat
  joonista_postid(mx, my, mz);
  c:=readkey;
  case c of
    'k':inc(mz); 'j':dec(mz);
    'l':inc(mx); 'h':dec(mx);
    'i':inc(my); 'm':dec(my);
  end;
  cleardevice;
 until c=chr(27);
 closegraph;
end.