Курсовая работа: Проект разработки программы-калькулятора CalcKurs на языке программирования Pascal

end;{Express}

{----------------------------------------}

case k of

1:DelOstatok;

2:Factor;

3:NodNok;

4:SuperGorner;

5:Express;

6:AntiExp;

else

writeln ('нет операции');

end;{case}

writeln('Повторить выполнение калькулятора ?(Y/N)');

q:=ReadKey;

until q in ['N','n'];

clrscr;

readln;

end.{prog}