Источник информации - Я.
Кодирующие устройство - телефон.
Канал Связи - Линия Сотовой связи.
Декодирующее устройство - телефон друга.
Приемник Информации - друг.
1) с = 2 + 12 = 14
2) с = 1 + 14 = 15
3) с = 1
Var a,s,i :integer;
begin
readln(a);
while a<>0 do begin
readln(a);
if (a >15) and (a<190) and (a mod 2=0) then
s:=s+a;
end;
writeln(s);
end.