2.Altere o programa anterior de forma a ler 4 valore em 4 variáveis: A, B C, D. Use a rotina “Troca_valores” implementada no programa anterior para a troca de valores de A com B, depois de C com D, mostre como ficaram os valores da variável, e para concluir destroque seus conteúdos mostrando novamente na tela como ficaram estas variáveis.

Program Pzim ;
var
x,y,z,w: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);
writeln('Digite o numero C:');
readln(z);
writeln('Digite o numero D:');
readln(w);

troca(x,y);
troca(z,w);

writeln('O valor de A trocado por B e:',x);
writeln('O valor de B trocado por A e:',y);
writeln('O valor de C trocado por D e:',z);
writeln('O valor de D trocado por C e:',w);

troca(x,y);
troca(z,w);

writeln;
writeln('O valor de A inicial:',x);
writeln('O valor de B inicial:',y);
writeln('O valor de C inicial:',z);
writeln('O valor de D inicial:',w);
End.