3. Вывести значение true, если приведенное высказывание для предложенных исходных данных является истинным, и значение false в противном случае (все числа, для которых не указано иное, являются действительными): А)данное число x не принадлежит интервалу (a, b); Б)данное целое число x является нечетным; В)данное число x является корнем уравнения: ax2+bx+c=0; СОСТАВЬТЕ ПРОГРАММКИ В ПАСКАЛЕ

Uses crt;
var a,b,c,d,x,r,r1:integer;
begin
readln(a,b,c,x);
if ((x > a) and (x writeln(true) else writeln(false);
if (x mod 2=1) then
writeln(true) else writeln(false);
d:=sqrt(sqr(b)-4*a*c);
r:=(-b+d)/(2*a);
r1:=(-b-d)/(2*a);
if ((x = r) or (x = r1)) then
writeln(true) else writeln(false);
end.