PROGRAM PESQ_VETOR;
USES CRT;

TYPE VETOR = ARRAY[1..10] OF INTEGER;

PROCEDURE LE(VAR A: VETOR);
VAR I: INTEGER;
BEGIN
     FOR I:=1 TO 10 DO
     BEGIN
          WRITE('DIGITE O ',I,' ELEMENTO');
          READLN(A[I]);
     END;
END;

PROCEDURE CALC(VAR B: VETOR; A:VETOR);
VAR I: INTEGER;
BEGIN
          IF I MOD 2 = 0 THEN
          BEGIN
               B[I]:=A[I]*5
               ELSE
               B[I]:=A[I]*3;
               END;
END;

PROCEDURE ESCREVE(B: VETOR);

VAR I: INTEGER;
BEGIN
     FOR I:=1 TO 10 DO
     BEGIN
     WRITE(B[I]);
     WRITELN;
     END;
     WRITELN;
END;

VAR A: VETOR;
LE(A);
CALC(A,B);
ESCREVE(B);
READKEY;
END.