// PascalABC.NET 3.1, сборка 1184 от 02.03.2016uses GraphABC;begin Pen.Width:=3; // 0 DrawRectangle(20,20,70,120); // 1 Line(90,70,140,20); Line(140,20,140,120); // 2 MoveTo(160,20); LineTo(210,20); LineTo(210,70); LineTo(160,120); LineTo(210,120); // 3 MoveTo(230,20); LineTo(280,20); LineTo(230,70); LineTo(280,70); LineTo(230,120); // 4 MoveTo(300,20); LineTo(300,70); LineTo(350,70); Line(350,20,350,120); // 5 MoveTo(70,140); LineTo(20,140); LineTo(20,190); LineTo(70,190); LineTo(70,240); LineTo(20,240); // 6 Line(90,190,140,140); DrawRectangle(90,190,140,240); // 7 MoveTo(160,140); LineTo(210,140); LineTo(160,190); LineTo(160,240); // 8 DrawRectangle(230,140,280,240); Line(230,190,280,190); // 9 DrawRectangle(300,140,350,190); Line(350,190,300,240)end.