Даны два реальных положительных числа x и y. Арифметические деянья над

program calculator;

var x, y: real;

d: byte;

begin

writeln(Изберите математическое деяние: 1 = +, 2 = -, 3 = *, 4 = /);

readln(d);

writeln(Введите 1-ое число);

readln(x);

writeln(Введите 2-ое число);

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.