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

Program abc;
var
n: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.