program vahetamine;
var a: array[1..10] of integer;
c: integer;
i: integer;

procedure vaheta(x, y: integer);
begin;
 c:=a[x];
 a[x]:=a[y];
 a[y]:=c;
end;

begin
 randomize;
 for i:=1 to 10 do
  a[i]:=random(10);
 writeln('a[2]=',a[2],' ja a[6]=',a[6]);
 vaheta(2, 6);
 writeln('a[2]=',a[2],' ja a[6]=',a[6]);
 writeln;
end.