{Ekraanil paistab plats pealtvaates. Kasutaja saab m„nguasja platsil
 liigutada klahvidega. M„ngukulgur v„ljakul olevast plangust l„bi ei p„„se,
 plangust saab vaid ringi mber minna.
 Kulgur on neljakandiline. Plank on keset platsi, veerand platsi pikkune
 ning paralleelne platsi he servaga.}
uses graph, crt;
var
xvahe,yvahe,d,m,x,y,keskx,kesky,samm: integer;
c: char;
begin
Initgraph(d, m, '');
line(0, 0, getmaxx, 0);
line(getmaxx, 0, getmaxx, getmaxy);
line(getmaxx, getmaxy, 0, getmaxy);
line(0, getmaxy,0, 0);
setcolor(blue);
line(300,185,300,290);
keskx:=50;
kesky:=50;
setcolor(red);
rectangle(-10+keskx,-10+kesky,10+keskx,10+kesky);
samm:=1;
repeat
 c:=readkey;  {nooleklahvidega liigutamiseks}
 if c=chr(0) then
 begin
  c:=readkey;
   setcolor(black);
rectangle(-10+keskx,-10+kesky,10+keskx,10+kesky);
  if c='K' then   {K-vasakule}
           begin
             if (keskx-10>302)or(keskx-10<=298)or(kesky+10<185)or(kesky-10>290) then
             begin
               keskx:=keskx-samm;
             end
             else
             begin
               sound(200);
               delay(1);
               nosound;
             end;
             end;
  if c='M' then   {M-paremale}
          begin
          if(keskx+10<298)or(keskx+10>=302)or(kesky+10<185)or(kesky-10>290) then
          begin
            keskx:=keskx+samm;
          end
          else
          begin
            sound(500);
            delay(1);
            nosound;
          end;
          end;
  if c='H' then kesky:=kesky-samm;{H-lesse}
  if c='P' then kesky:=kesky+samm;{P-alla}
 end;
setcolor(red);
rectangle(-10+keskx,-10+kesky,10+keskx,10+kesky);
until c=chr(27);
readln;
closegraph;
end.