Задано n целых чисел.найти произведение четных чисел использовать оператор цикла с параметром

Var m,n,i,a: integer; begin writeln('n='); readln(n); m: =1; writeln('vvedite chisla'); for i: =1 to n do begin readln(a); if (a mod 2)=0 then m: =m*a; end; if m=1 then m: =0; writeln('otvet: ',m) end.

                                  начало                             включить плиту                         поставить сковороду                     полить маслом сковороду                               разбить яйца                                 жарить яйца                                     конец

Если вы утром собираетесь выходить из дома, то актуальная информация - сколько градусов на улице, неактуальная - сколько процентов голосов набрал уго чавес на первых выборах (оно вам надо знать с утра пораньше? ) . достоверная информация - например, дата рождения в вашем паспорте, недостоверная - тетя маня сказала, что ее двоюродная прабабка родилась 13 мая, но у тети мани склероз и маразм и никаких документов от прабабки не осталось. объективная - это платье черного цвета, необъективная - вам кажется, что оно вам не идет. полная - москва - столица россии, неполная - коты бывают рыжие и белые (можно дополнить серыми, черными и т. п. - поэтому неполная) полезная - формулы сокращенного умножения на экзамене по , бесполезная - сообщение в сми о весе и росте наследника британского престола. понятная - петербург в советское время назывался ленинградом, непонятная - васиной собаке дали сс (в принципе, для меня - владелицы чистопородного племенного кобеля - даже понятная, а вот для человека, далекого от собачьих выставок - нет).