program Dibujar;
uses Teclado, crt;

var
  Car: char;
  X, Y: integer;

procedure Dib;
begin
  gotoXY(X, Y);
  write('*');
end;

begin
  X := 40; Y := 12;
  Dib;
  repeat
    Car := GetKey;
    case Car of
      CsrArr: if Y > 1 then dec(y);
      CsrAba: if Y < 25 then inc(y);
      CsrIzq: if X > 1 then dec(x);
      CsrDer: if X < 80 then inc(x);
    end;
    Dib;
  until Car = chr(27);
end.