4.Faça um programa que leia três valores e chame uma sub-rotina que receba estes 3 valores de entrada e retorne o maior valor entre estes três valores na primeira variável, o segundo maior valor da segunda variável e o terceiro maior valor na terceira variável. Exiba os valores ordenados na tela (sugestão: use a sub-rotina troca-valores).

Program Pzim ;
var
x,y,z:integer;

procedure maior(var a,b:integer);
var
temp:integer;
begin
temp:=a;
if