Составить программу, печатающую значение TRUE, если указанное высказывание является истинным, и FALSE в противном случае:
1. Величина d является корнем только одного из уравнений ax2 + bx + c = 0 и mx + n = 0

s11pkno1: Благодарю!!!

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

s11pkno1: Var
a, b, c, m, n, d: integer;
L: boolean;
begin
writeln('a');
read(a);
writeln('b');
read(b);
writeln('c');
read(c);
writeln('m');
read(m);
writeln('n');
read(n);
writeln('d');
read(d);
L:= (a*d*d+b*d+c=0) or (m*d+n=0)
End.

s11pkno1: Пропущена строчка writeln(L);

kordark: Да, ваша программа также правильно работает