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

program calc;var X,Y:real;k:integer;beginwrite(\'Введите два числа через пробел \');readln(X, Y);writeln(\'Введите номер операции: 1 — \"+\", 2 — \"-\", 3 — \"x\", 4 — \"/\"\');readln(k);case k of1: writeln(X, \' + \', Y, \' = \', X + Y);2: writeln(X, \' - \', Y, \' = \', X - Y);3: writeln(X, \' * \', Y, \' = \', X * Y );4: if Y<>0 then writeln(X, \' / \', Y, \' = \', X / Y ) else writeln(\'Деление на 0 недопустимо\');end;end.