Procedure QUITE; Var Ch1rchar; o, k:integer; f1ag, f1ag1:integer; Begin F1:=0

For i:=1 to 6 do if ааШ=0 then f1:=f1+1; if f1od then ha1t(1); raschet(f1ag, f1ag1,n); if (f1ag=0) or (f1ag1=0) then begin

New_win(lf1,80,25,1); windl(10,10,70,15,3,0,’y’,1); textcolor(14); GOTOXY(3,3);

If f1agO then write(‘BbicoTa балки более 2 метров’); if f1ag1=0 then write (‘Толщина полки более 40 мм ‘);

Windl(2,20/78/25/3/0f, n,/1);

Textcolor(14);

G0TCXY(10,3);

Write(‘Для завершения работы нажмите ESC.’); repeat

If key=chr(27) then begin halt(l); end; until false; end;

0:=1; k:=l; new_win(l,1,80,25,1); windl(2,20,78,23,3,0,’y’,1); textcolor(14); GOTCXY(6,2); write(‘Стрелка "вниз" — следующая страница,"вверх" —

Предыдущая страница.’);

Gotoxy(6,3);

WritelnC Для завершения работы нажмите ESC. Для док­ументирования F2.’); chapca; if n>=10 then begin

For i:=l to 10 do



.