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

program calc;

var X, Y:real;

k:integer;

begin

write ('Введите два числа через пробел ');

readln (X, Y);

writeln ('Введите номер операции: 1 - "+", 2 - "-", 3 - "x", 4 - "/"');

readln (k);

case k of

1: writeln (X, ' + ', Y, ' = ', X + Y);

2: writeln (X, ' - ', Y, ' = ', X - Y);

3: writeln (X, ' * ', Y, ' = ', X * Y);

4: if Y0 then writeln (X, ' / ', Y, ' = ', X / Y) else writeln ('Деление на 0 недопустимо');

end;

end.