Пожалуйста посчитайте, пожалуйста, буду очень благодарна ❤️ (pascal)

begin
  var (x,y):=ReadReal2('Введите два положительных числа:');
  Writeln('Введите код операции');
  var op:=ReadInteger('1- "+", 2- "-", 3- "x", 4- "/":');
  case op of
  1:Writeln(x+y);
  2:Writeln(x-y);
  3:Writeln(x*y);
  4:Writeln(x/y);
  else Writeln('Неверный код')
  end
end.


Введите два положительных числа: 3.56 1.643
Введите код операции
1- "+", 2- "-", 3- "x", 4- "/": 3
5.84908