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

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

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

Vara, b, c, m, n, d: integer;L: boolean;beginwriteln('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.

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

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

var a,b,c,m,n,d: integer; begin readln(d); readln(a,b,c,m,n); if (a*d*d+b*d+c=0) or (m*d+n=0) then writeln("TRUE") else writeln("FALSE"); end.