1 задание, а лучше 1 и 2!!!! срочно!!!!

2. Решение "по-школьному"

var

 n,s:integer;

begin

 s:=0;

 repeat

   Read(n);

   if (n mod 3=0) and (n mod 10=6) then s:=s+n

 until n=0;

 Writeln('Сумма отобранных чисел равна ',s)

end.

Пример

15 36 26 72 25 96 83 0

Сумма отобранных чисел равна 132