Доля каких территорий и пространств возросла в современной России?

Var a:array [1..7] of integer; i,p:integer;
begin 
a:=1;
 for i:=1 to 7 do
begin
readln(a); p:=p*a;
end;
writeln('Произведение = ',p);
readln;
end.