program z2_10 uses crt var integer begin clrscr writeln vvedite chislo

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.