Program P02;
var i,x,y:integer;
procedure P(A:integer);
begin
if(A=5) and (A[i+1]=2) then (A=2) and (A[i+1]=5);
end;
begin
readln(x,y);
P(x,y);
writeln
readln;
end.

eu asa am incercat va brog sa ma corectati daca nu este corect

1)Elaborati o procedura  care efectueaza interschimbarea a doua numere intregi.
2) Elaborati o procedura care mareste elementele impare cu 5.

Macar ceva sugestii va rog mult de tot
.