Обясни, при каком значении z значение выражения z-3 нельзя вычислить

Uses crt;

var a, b, c, d:real;

begin

writeln ('Введите переменную a') ;

readln (a) ;

writeln ('Введите переменную b') ;

readln (b) ;

writeln ('Введите переменную c') ;

readln (c) ;

writeln ('Введите переменную d') ;

readln (d) ;

if (c*d0) and (c0) and (d0) then write (a/c-b/d - (a*b-c) / c*d)

else write ('На 0 делить нельзя!') ;

readln;

end.