Begin break; Encl

Until false;

Ehc^;

Procecure Chapka; Begin

NЈw_win(l,1/80/25/1);

Wincll(2/20/78/25/3/0/,y,/l);

GOTOXY(3,2);

Write(‘ Для ввода данных установите курсор на соответ­ствующую позицию с помощью’); GOTOXY(3,3); write(‘стрелок "вверх" и "вниз" и нажмите ENTER. Для

Того чтобы исправить оши-");

GOTOXY(3,4);

Write(‘бочно введенное данное, подведите курсор и повто­рите ввод.’); GOTOXY(3,5);

Write(‘ Для окончания ввода нажмите ESC. ‘);

Windl(2/2/78Д8/3/0/,у, Д); textcolor(O); gotoxy^(3/2); write(

TOC \o "1-3" \h \z ‘ 1. ЗНАЧЕНИЕ ВЫСОТЫ СТЕНКИ БАЛКИ В СМ ‘

Gotoxy(3,3); write(

‘ ‘);

Gotoxy(3,4); write(

‘ 2. ЗНАЧЕНИЕ ТОЛЩИНЫ СТЕНКИ БАЛКИ В СМ ‘

gotoxy(3,5); write(



.