Помогите пожалуйста Задание 1.Даны два реальных числа x и y. Вычислить

Var x,y:real;

begin
   writeln('Введите x, y: ');
   readln(x, y);

  writeln('Сумма = ', x+y);
  writeln('Разность = ', x-y);
  writeln('Произведение = ', x*y);
  writeln('Приватное = ', x/y);
end;


Операторы
write, writeln - вывод данных
read, readln - ввод данных