3. вывести значение true, если высказывание для предложенных исходных данных является истинным, и значение false в противном случае (все числа, для которых не указано иное, являются действительными): а)данное число x не принадлежит интервалу (a, b); б)данное целое число x является нечетным; в)данное число x является корнем уравнения: ax2+bx+c=0; составьте программки в паскале
var a,b,c,d,x,r,r1:integer;
begin
readln(a,b,c,x);
if ((x > a) and (x < b)) then
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.