Procedure QUITE; Var Chl:char; o, k:integer; f lag, f lagl:in*teger; Begin

Raschet; new_win(l,1,80,25,1);

Wmdl(25,2,55,4,3,0,’y,/l);

Gotoxy (12,2); write(‘ РЕЗУЛЬТАТ ‘); ^!ПС11(5,22,75,24,3,0,,у,,1); gotoxy(7,2);

Write(‘Для завершения работы нажмите ESC. Для документи­рования F2.’); windl(3,7,77,19,3,0,’у’,1); textcolor(O); gotoxy(3,2); write( ‘ 1. СЕЧЕНИЕ ИВ ДВУХ ДВУТАВРОВ А = ‘ ,bbClJ:12:2) ;

Gotoxy(3,3); write(

1 ‘);

Gotoxy(3,4);

Write( ‘ 2. МИНИМАЛЬНОЕ РАССТОЯНИЕ МЕЖДУ Ц. Т. ВЕТВЕЙ b = ‘,bb[2]:12:2);

Gotoxy(3,5);



.