Fazer um Programa em Pascal onde Entra 3 Números e Determina o Menor com While

De acordo com o pedido do nosso leitor Cristofer:

Fazer um programa em Pascal onde você deverá entrar com 3 números e deverá mostrar qual deles é o menor utilizando o comando while.

Ai vai a resposta. Qualquer dúvida entre em contato.

Program Menor_Numero_While;


Uses Crt;


var


i : Array [1..3] of Integer;


j : Integer;


menor : Integer;


Begin


ClrScr;


for j := 1 to 3 do


Begin


Write ('Entre com ',j,'o numero:');


ReadLn(i[j]);


End;

// Determinando o menor com while


menor := i[1];


j := 2;


while j <=3 do


begin


if i[j] < menor then menor := i[j];


j := j + 1;


end;


WriteLn( 'O menor numero eh: ', menor);


ReadLn;


End.