Program Pzim ;
{Escreva um programa para calcular o maior e o menor
de três números inteiros.}
var
n1, n2, n3, maior, menor:integer; {varriaveis para receber os 3 numeros e o maior e o menor}
Begin
writeln('Digite o 1o. número : ');
read(n1);
writeln('Digite o 2o. número : ');
read(n2);
writeln('Digite o 3o. número : ');
readln(n3);
{compara dois a dois pra confirmar quem é o maior}
if ((n1 > n2) and (n1>n3)) then
begin { o primeiro com o 2º e o 3º}
maior:=n1;
end;
if ((n2 > n1) and (n2>n3)) then { o segundo com o 1º e o 3º}
begin
maior:=n2;
end;
if ((n3 > n1) and (n3>n2)) then {por ultimo o terceiro com o 1º e o 2º}
begin
maior:=n3;
end;
if ((n1 < n2) and (n1<n3)) then
begin
menor:=n1;
end;
if ((n2 < n1) and (n2<n3)) then {a mesma coisa com o menor}
begin
menor:=n2;
end;
if ((n3 < n1) and (n3<n2)) then
begin
menor:=n3;
end;
writeln(' o maior número é : ',maior,', e o menor é : ',menor); {mostra o resultado}
End.
