Za vtorata mislq 4e 6te e ne6to takova


Program Zad2;

var a,b,x:Real;

begin

writeln('a=');readln(a);
writeln('b=');readln(b);
writeln('x=');readln(x);

If (x>a) and (x<b) then writeln('x e v intervala mejdu a i b');
If (x<a) or (x>b) then writeln('x e izvan intervala a i b');
end.

dano da e taka i da ti svar6i rabota