program z2_10 uses crt var integer begin clrscr writeln vvedite chislo

 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.