Использовать Рисователь
алг
нач
цел x, ширина = 400
новый лист(ширина, 400, белый)
линия(int(ширина/21),50,int(ширина/21)*20,50)
нц для x от 1 до 20
линия(x*5+int(ширина/2)-50,300,x*int(ширина/21),50)
кц
линия(int(ширина/2)-45,300,int(ширина/2)+50,300)
кон