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

вот засранец)

захожу, а ее уже написали

// PascalABC.NET 3.3, сборка 1627 от 27.01.2018// Внимание! Если программа не работает, обновите версию!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('Неверный код')  endend.ПримерВведите два положительных числа: 3.56 1.643Введите код операции1- "+", 2- "-", 3- "x", 4- "/": 35.84908