1 2 3 4 5 6 7 8 9 10 11 12 13 14
program z2_10; uses crt; var k: integer; begin clrscr; writeln('vvedite chislo:'); readln(k); if ((k > -5) AND (k < 3)) then writeln('Prinadlejit intervalu') else writeln('Ne prinadlejit intervalu'); readln; end.