Даны два действительных положительных числа x и y. Арифметические действия над числами пронумерованы (1 - сложение, 2 - вычитание, 3 - умножение, 4 - деление). Составьте программу, которая по введенному номеру выполняет то или иное действие над числами

program calculator;

var x, y: real;

d: byte;

begin

writeln ('Выберите математическое действие: 1 = +, 2 = -, 3 = *, 4 = / ');

readln (d);

writeln ('Введите первое число');

readln (x);

writeln ('Введите второе число');

readln (y);

if d = 1 then writeln ('Сумма ', x + y) else

if d = 2 then writeln ('Разность ', x - y) else

if d = 3 then writeln ('Произведение ', x * y) else

if d = 4 then writeln ('Разность ', x / y);

end.