Введены 2 числа, a и b,выясните, имеет ли решение уравнение 1/(a+b). , ! напишите программу паскаль

Пусть это и не уравнение, но смысл понятен:

Var a,b:real;
Begin
Write('a = ');Read(a);
Write('b = ');Read(b);
if a<>b then Write('Да')
else Write('На ноль делить нельзя!')
End.