Даны два действительных числа x и y. вычислить их сумму, разность, произведение и частное. напишите программу в паскаль

var
  x, y: real;

begin
  readln(x, y);
  writeln(x, ' + ', y, ' = ', x + y);
  writeln(x, ' - ', y, ' = ', x - y);
  writeln(x, ' * ', y, ' = ', x * y);
  writeln(x, ' / ', y, ' = ', x / y);
end.