Procedure Nachalo; Begin

New_wm(l,1,80,25.1); windl(8,6,71,20,3,0,,y,,3); cptoxy(7,3); write (‘ПРОГРАММА ПРЕДНАЗНАЧЕНА ДЛЯ ПОДБОРА СТАЛЬНОЙ ЦЕНТРАЛЬ-‘);

Gotoxy(4,4); write(‘НО-СЖАТОЙ КОЛОННЫ СПЛОШНОГО СЕЧЕНИЯ. ПОДБИРАЕТСЯ СЕМЬ ВА-‘);

Gotoxy(4,5); writeСРИАНТОВ СЕЧЕНИЯ. СЕЧЕНИЕ СОСТОИТ ИЗ ШВЕЛЛЕРОВ И ДВУТАВРОВ’);

Gotoxy(4,6); write(‘В РЕЗУЛЬТАТЕ РАСЧЕТА ВЫДАЮТСЯ ОПИСАНИЯ ВАРИАНТОВ, ТО ЕСТЬ’);

Gotoxy(4,7); write(‘КАКОЕ СЕЧЕНИЕ И ИЗ СКОЛЬКИХ ПРОФИЛЕЙ ОНО СОСТОИТ, А ТАКЖЕ’);

Gotoxy(4,8); write(‘ПЛОЩАДЬ ОДНОГО ПРОФИЛЯ. ПО ДАННОЙ ПЛОЩАДИ И СОРТАМЕНТУ ВЫ’); gotoxy(4,9);



.