3.Faça um programa que leia 2 valore e chame uma sub-rotina que receba estes 2 valores de entrada e retorne o maior valor na primeira variável e o segundo maior valor na segunda variável. Escreva o conteúdo dos dois valores na tela.

Program Pzim ;
var
x,y:integer;

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