procedure enter(var b:boolean);
var key:char;
begin
textcolor(white);textbackground(blue);menu(24,10,56,22);
gotoxy(25,11);write('Выберите проверяемую задачу: ');
gotoxy(36,13);write('Вторая');
gotoxy(36,14);write('Третья');
gotoxy(36,15);write('Четвертая');
gotoxy(36,16);write('Пятая');
gotoxy(36,17);write('Шестая');
gotoxy(36,18);write('О программе...');
gotoxy(35,12+i);write(#250);
gotoxy(25,20);write('Для выхода нажмите Esc...');
repeat
key:=readkey;
gotoxy(35,12+i);write(' ');
if key=chr(80) then if i<6 then i:=i+1;
if key=chr(72) then if i>1 then i:=i-1;
gotoxy(35,12+i);write(#250);
until (key=chr(13))or(key=chr(27));
if key=chr(13)then b:=true else b:=false;
textcolor(txtclr);textbackground(backcolor);
end;