На Паскале составить программу, имитирующую работу простейшего калькулятора (сложение, вычитание, умножение, деление) с

В качестве входных данных попросим пользователя ввести два числа и операцию. Далее с помощью четырех (в соответствии с количеством операций) условий проверим какое действие необходимо выполнить.

program ex48;
uses crt;
var
s: char;
x,y, res: real;
begin
ClrScr;
Write('Введите число первое число: ');
ReadLn(x);
Write('Введите число второе число: ');
ReadLn(y);
Write('Введите операцию, которую нужно выполнить ("+","-","*","/"): ');
ReadLn(s);
if s='+' then res:=x+y;
if s='-' then res:=x-y;
if s='*' then res:=x*y;
if s='/' then res:=x/y;
writeln('Результат = ',res:5:5);
ReadLn;
end.