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

repeat until keypressed;

readkey;

ClearViewPort;

end;

function Menu(number: Integer): Integer;

const

Selected = Cyan;

UnSelected = 255;

IV = 20;

var

str1: string;

ch: char;

begin

SetTextStyle(8,0,1);

while (true) do

begin

if (number=1) then

SetColor(Selected)

else SetColor (UnSelected);

OutTextXY(0, 1*IV, 'Информация (F1) ');

if (number=2) then

SetColor(Selected)

else SetColor (UnSelected);

OutTextXY(0, 2*IV, 'Считать данные из файла (L) ');

if (number=3) then

SetColor(Selected)

else SetColor (UnSelected);

OutTextXY(0, 3*IV, 'Изменить показатель преломления в 1-ой среде (1) ');

if (number=4) then