PROCIDORE 1.Faça um programa que leia dois valores e chame uma sub-rotina (procedure) que receba essa duas variáveis e troque o seu conteúdo, ou seja, esta rotina é chamada passando duas variáveis A e B por exemplo, e após a execução da rotina A conterá p valor de B e B terá o valor de A.

Program Pzim ;
var
x,y:integer;

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

end;

Begin
writeln('Digite o numero A:');
readln(x);
writeln('Digite o numero B:');
readln(y);

troca(x,y);

writeln('O valor de A trocado por B e:',x);
writeln('O valor de B trocado por A e:',y);
End.