Программа:
a:array[1..20] of integer;
var
k:integer;
begin
k:=1;
for i:=1 to 20 do
if a[i]>0 then k:=k*a[i];
writeln(k);
end.
Текст:
Сегодня количество стран которые принимают участие в олимпийских играх гораздо больше чем дисциплин в которых участвуют атлеты. Как и в древние времена Олимпийские игры проводятся каждые 4 года, еще в 1926 году появилась традиция проводить зимние олимпийские игры. Главная идея Олимпийских игр это сплотить людей путем соревнования на футбольных полях, кортах и стадионах.