---

program GOVNOEDOVO;
var 
  s, i: integer; a:array [1..10] of integer;
begin
   s:=1;
  for i:=1 to 10 do
    begin
    a[i]:=i;
  writeln ('a[', i, ']=', a[i]);
    s:=s*i;
    end;
  writeln ('s=', s);
end.