VII/3

program VII;//название
var//объявление переменных
x, a:real;//вводимый аргумент x и параметр a
begin
    Write('Введите x:');
    ReadLN(x);
    Write('Введите a:');
    ReadLN(a);
    //проверка и вывод в соотвествии с условием
    if (x < a) then
        WriteLN('y = ', 0)
    else
        if (x = a) then
            WriteLN('y = ', 1)
        else
            WriteLN('y = ', (x-a)/(x+a));
end.