всё на фотке только з2

// pascalabc.net 3.1, сборка 1184 от 02.03.2016 uses 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.