Постройте на экране компьютера треугольник, который перемещается при нажатии на клавиши перемещения в указанном направлении.

uses graph,crt;
procedure Treug(x,y,c:integer);
var x1,y1,x2,y2,x3,y3:integer;
begin
x1:=x;
y1:=y-50;
x2:=x-round(50*cos(pi/6));
y2:=y+round(50*sin(pi/6));
x3:=x+round(50*cos(pi/6));
y3:=y2;
setcolor(c);
setlinestyle(0,0,3);
line(x1,y1,x2,y2);
line(x1,y1,x3,y3);
line(x3,y3,x2,y2);
end;
var x,y,d:integer;
    k:char;
begin
x:=0;
initgraph(x,y,'');
x:=getmaxX div 2;
y:=getmaxY div 2;
outtextXY(x-100,20,'1-Left 2-Up 3-Right 4-Down');
outtextXY(x-50,40,'Exit - Esc');
Treug(x,y,12);
repeat
if keypressed then
 begin
  k:=readkey;
  case k of
  #52:begin
      delay(100);
      Treug(x,y,0);
      if y>getmaxY-40 then d:=0
      else d:=10;
      y:=y+d;
      Treug(x,y,12);
      end;
  #50:begin
      delay(100);
      Treug(x,y,0);
      if y<100 then d:=0
      else d:=10;
      y:=y-d;
      Treug(x,y,12);
      end;
  #51:begin
      delay(100);
      Treug(x,y,0);
      if x>getmaxX-55 then d:=0
      else d:=10;
      x:=x+d;
      Treug(x,y,12);
      end;
  #49:begin
      delay(100);
      Treug(x,y,0);
      if x<50 then d:=0
      else d:=10;
      x:=x-d;
      Treug(x,y,12);
      end;
  #27:exit;
  end;
 end;
until k=#27;
end.