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

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.