Program OdwrocWektory(output);
var
w1: array [1..10] of integer;
w2: array [1..10] of integer;
tmp: array [1..10] of integer;
i: integer;
begin
    for i := 0 to 9 do
        begin
           w1[ i ] := i+1 ;   
           w2[ i ] := i+11;
        end;
    writeln('Stan początkowy wektorów:');
    for i:= 0 to 9 do
      writeln('Dla indeksu w1[',i,'] = ', w1[i], ' oraz w2[',i,']= ', w2[i]);
    for i := 0 to 9 do
        begin
            tmp[i] := w1[9 - i];
            w1[i] := tmp[i];
            tmp[i] := w2[9 - i];
            w2[i] := tmp[i];
        end;
    writeln('A teraz efekt odwrócenia obu wektorów:');
    for i:= 0 to 9 do
    writeln('Dla indeksu (', i, ') w1 = ', w1[i], ' oraz w2= ', w2[i]);
end.