Написать программу решения в Паскале ABC

var
  x,y:real;
begin
  Write('Введите х и у через пробел- '); Read(x,y);
  Writeln(1+y/x)
end.

Пример
Введите х и у через пробел- 13.54 -8.3
0.387001477104874