Instrukcja warunkowa

program przedzial;
uses crt;
var x:integer;
begin
  clrscr; 
  writeln('podaj x');
  readln(x);
  if (x>=5) and (x<=10) then writeln(x,' nalezy do przedzialu') 
  else writeln(x,' nie nalezy do przedzialu');
  readkey;
end.