Построение треугольника по заданным координатам — Pascal(Паскаль)

uses crt, graph;

var
  gd, gm, x, y, a, c: integer;

begin
  clrscr;
  writeln('Введите координаты центра звезды X и Y ');
  readln(x);
  readln(y);
  writeln('Введите длину луча звезды (не меньше 90)');
  readln(a);
  initgraph(gd, gm, 'c:\bp\bgi');
  c := round(3 / 4 * a);
  line(x, y - a, x + c, y + 2 * c);
  line(x, y - a, x - c, y + 2 * c);
  line(x + c, y + 2 * c, x - a - 10, y - 25);
  line(x - c, y + 2 * c, x + a + 10, y - 25);
  line(x + a + 10, y - 25, x - a - 10, y - 25);
  delay(3000);
  closegraph;

end.