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

program abc;varn:byte;x,y: double;begin writeln('Введите два действительных положительных числа: ');readln(x,y);Writeln('Выберите арифметическое действие: ');Writeln('1 – сложение');Writeln('2 – вычитание');Writeln('3 – умножение');Writeln('4 – деление');readln(n);case n of 1: Writeln('Сумма = ',y+x);2: Writeln('Разность = ',x-y);3: Writeln('Произведение = ',x*y);4: Writeln('Частное = ',x/y);end;end.