var N,i,a,p:integer;
BEGIN
readln(N);
p:=1;
for i:=1 to N do begin
read(a);
if (a>9) and (a<100) then
p:=p*a;
end;
writeln(p);
end.
Нет
С=-1
Да
С=8
Ответ: 8
9,
т.к. day:= k выполнятеся одни раз в случае Dat[9]:= 7