ajutor va rog sunt abia incepatoare intr-o scoala noua

[•adriana.com]

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
.

[•adriana.com]

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

[•sabbath]

procedure schimb(var a:integer, var b:intereg;
var aux:integer;
begin
   aux := a;
   a ;= b;
   b := a;
end;


sa mareasca elementele cui cu 5? ale unui sir?

peocedure mareste_5;
{
    for i:=1 to n do
         a = a + 5;
}