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

var r1,r2:real;
w:integer;
begin
writeln('Введите первое число(r1)');
readln(r1);
writeln('Введите второе число(r2)');
readln(r2);
writeln('1-сложение');
writeln('2-вычитание');
writeln('3-умножение');
writeln('4-деление');
readln(w);
case w of
     1:writeln(r1+r2);
     2:writeln('r1-r2 = ',r1-r2,' r2-r1 = ',r2-r1);
     3:writeln('r1*r2 = ',r1*r2);
     4:writeln('r1/r2 = ',r1/r2:0:5,' r2/r1 = ',r2/r1:0:5);
end;
end.