PROGRAM PRIMER 1;
VAR S,P,I:INTEGER;
AARRAY[1..10] OF INTEGER;
BEGIN
RANDOMIZE;
FOR I:=1 TO 10 DO
A[I]=RANDOM(7);
S:=0; P:=1;
FOR I:=1 TO 10 DO
BEGIN
S:=S+A[A];
P:=P*A[A];
END;
WRITELN (�����=', S:6, '������������=', P=10);
END.