Составить программку для вычисления произведения положительных элементов массива целых чисел

Программка:

a:array[1..20] of integer;

var

k:integer;

begin

k:=1;

for i:=1 to 20 do

if a[i]gt;0 then k:=k*a[i];

writeln(k);

end.

Текст:

Сейчас количество государств которые принимают роль в олимпийских играх еще больше чем дисциплин в которых участвуют атлеты. Как и в древнейшие времена Олимпийские забавы проводятся каждые 4 года, еще в 1926 году появилась традиция проводить зимние олимпийские забавы. Главная идея Олимпийских игр это объединить людей методом соревнования на футбольных полях, кортах и стадионах.