Курсовая работа: Преломление света на границе раздела двух сред

begin

Menu: = 5;

break;

end;

if (ch = '1') then

begin

Menu: = 3;

break;

end;

if (ch = '2') then

begin

Menu: = 4;

break;

end;

{"вверх" и "вниз"}

if (ch = #72) then number: =number-1;

if (ch = #80) then number: =number+1;

if (number = 0) then number: = 6;

if (number = 7) then number: = 1;

{ENTER}

if (ch = #13) then

begin

Menu: = number;

break;

end;

end;

end;

procedure GraphMode;

var