Решите уравнение y=(ad+bc)/bd с паскаля (программа для решения уравнения)

Программа на PascalABC.NET:

var a, d, b, c: integer;

begin

writeln('Введите по очереди значения a, d, b, c: ');

readln(a, d, b, c);

if (b = 0) or (d = 0) then writeln('На 0 делить нельзя!')

else

writeln('y = ', (a*d + b*c) / (b*d))

end.