На вход 2 числа. далее, выводится меню с перечнем: 1) +' 2) - 3) * 4) / программа должна ожидать ввода выбранного пункта, и выполнять соответствующее действие

Const cr=chr(13)+chr(10);
var a,b:integer; c:char;
begin
writeln('Введите 2 числа:');
readln(a,b);
writeln('Введите операцию:');
writeln('1) +',cr,'2) -',cr,'3) *',cr,'4) /');
readln(c);
case c of
 '+': writeln(a,' + ',b,' = ',a+b);
 '-': writeln(a,' - ',b,' = ',a-b);
 '*': writeln(a,' * ',b,' = ',a*b);
 '/': writeln(a,' / ',b,' = ',a/b);
 else writeln('Ошибка ввода');
end;
end.

Пример:
Введите 2 числа:
5 8
Введите операцию:
1) +
2) -
3) *
4) /
*
5 * 8 = 40