Question

Помогите составить программу ​

Answer 1

uses GraphABC;
procedure Tr( x, y: integer);
begin
MoveTo(x, y);
LineTo(x+50, y-100);
LineTo(x+50, y+100);
LineTo(x, y);
end;
begin
setpencolor(clblack);
tr(0,200);
tr(100,200);
tr(200,200);
tr(300,200);
tr(400,200);
tr(500,200);
end.

Должно быть все верно