Program IntervaloNumeros10e15; Var A, B, C, T: Integer; Begin Writeln ('Digite um intervalo de 2 números:'); Readln (B); Readln (C); If (B>C) then //Verifica se é necessário ordenar begin T:=B; B:=C; C:=T; //Ordena end; Writeln ('Digite mais um número para verificar se este se ecnontra nesse intervalo:'); Readln (A); If (A>=B) and (A<=C) Then Writeln (A, ' está entre ', (B), ' e ', (C),'!') Else Writeln (A, ' não está entre ', (B), ' e ', (C), '!'); End.