Question

Здравствуйте. Помогите сделать рисунок в Pascal Abc.

Answer 1

В таком случае, вот:)

99e8b5d479caf924b877a322f0320c5d.pas

Answer 2

line(234,173,213,108);
line(235,100,259,146);
line(247,107,202,125);
line(204,152,258,148);
end.

Answer 3

Спасибо, но ругается на строку:
window.Title := string.Format('({0}; {1})', x, y);

Answer 4

Ой, да, уберите всю процедуру
procedure ms(x, y, z: integer);
begin
window.Title := string.Format('({0}; {1})', x, y);
end;

и строку
GRaphabc.OnMouseMove := ms;

У меня не ругалось, но это тут лишнее, для дебага делал