Anonymous

{lee un valor y dice si esta en el intervalo dado}
program intervalo;
uses crt;
var
min,max,num:integer;
begin
clrscr;
writeln('indique numero minimo');
readln(min);
writeln('indique numero maximo');
readln(max);
writeln('indique numero a buscar');
readln(num);
if (num>=min) and (num<=max) then
begin
writeln('el numero ',num,' esta en el intervalo entre ',min , '
y ',max );
end
else
begin
writeln('el numero no esta en el intervalo');
end;
delay(2000);
end.