uses
  crt,graph,primer;
var
  t:tochka;
  k:krug;
  l:liniya;
  p:pryam;
  a,b,x,y,r:integer;
  c:byte;
  s:char;
begin
  write('vvedite : ');
  readln(x,y,r);
  a:=detect;
  initgraph(a,b,'');

  k.init(x,y,r,13);
  k.show;
  l.init(x-r,y-r,x+r,y+r,12);
  l.show;
  p.init(x-r,y-r,x+r,y+r,11);
  p.show;
  t.init(x,y,14);
  t.show;

  repeat
    s:=readkey;
    if s=#0 then s:=readkey;
    k.hide;
    l.hide;
    p.hide;
    if s=#72 then
      y:=y-15;
    if (s=#80) and (y<480-r) then
      y:=y+15;
    if s=#75 then
      x:=x-15;
    if s=#77 then
      x:=x+15;

    if x<r then x:=x+15;
    if x>640-r then x:=x-15;
    if y<r then y:=y+15;
    if y>470-r then y:=y-15;
    k.init(x,y,r,13);
    k.show;
    l.init(x-r,y-r,x+r,y+r,12);
    l.show;
    p.init(x-r,y-r,x+r,y+r,11);
    p.show;
    t.init(x,y,14);
    t.show;

    k.show;
    l.show;
    p.show;
    t.show;

  until s=#27;

  closegraph;
end.