Составить логическое выражение, значение которого равно true, если высказывание истинно, и false если можно.Число d является корнем уравнения ax^2+bx+c=0 или уравнения mx+n=0 — Pascal(Паскаль)

uses crt;
var a,b,c,m,n,d:integer;
    f:boolean;
begin
writeln('Введите коэффициенты уравнений a,b,c,m,n');
readln(a,b,c,m,n);
write('Введите предполагаемый корень одного из этих уравнений d=');
readln(d);
f:=(a*d+b*d+c=0)or(m*d+n=0);
write(f);
readln
end.