program MenorEMaiorValor; {$APPTYPE CONSOLE} uses SysUtils; var iValorDigitado, iMaiorValor, iMenorValor : Integer; begin iMaiorValor := 0; iMenorValor := MaxInt; write('Informe um valor: '); readln(iValorDigitado); if iValorDigitado = -1 then exit; repeat if (iValorDigitado > iMaiorValor) then iMaiorValor := iValorDigitado; if (iValorDigitado < iMenorValor) then iMenorValor := iValorDigitado; write('Informe um valor: '); readln(iValorDigitado); until iValorDigitado = -1; writeln('Maior valor digitado:' + IntToStr(iMaiorValor)); writeln('Menor valor digitado:' + IntToStr(iMenorValor)); readln; end.