Var a,b,c,d,sum:intger;
<span>begin
</span>writeln(введите 4 числа:);
read(a,b,c,d);
sum:=0;
if (a mod 3 =0)and(a>5) then sum:=sum+a;
if (b mod 3 =0)and(b>5) then sum:=sum+b;
if (с mod 3 =0)and(c>5) then sum:=sum+с;
if (d mod 3 =0)and(d>5 ) then sum:=sum+d;
if sum <> 0 then writeln(sum);
else writeln('Ни одно число не удовлетворяет условию');
<span>При работе в среде Windows часто используется термин «задача». Это понятие тесно связано с термином «приложение». Приложение становится задачей после его запуска. Приложение можно запустить двумя способами: либо непосредственно открыв файл запуска, либо открыв документ, созданный в этом приложении. Можно сказать, что задача - это работающее приложение, которое потребляет ресурсы системы или ждет своей очереди на них. Термин «задача» связан с механизмом управления ресурсами, а не с тем, работает с приложением пользователь или нет. О некоторых задачах пользователь может и не подозревать. Список задач можно получить, одновременно нажав клавиши <Ctrl><Alt><Del>. Приложения могут запускаться либо по инициативе пользователя, либо по инициативе Windows. Все задачи должны быть в той или иной форме отображены на экране.</span>
2 кластера=2*512 байт (>816)
<span>напишу так: зефир найден 12 раз, зефир или шоколад - 15. Значит, шоколад БЕЗ зефира найден 3 раза. А ещё шоколад с зефиром найден 8 раз, то есть шоколад с зефиром и без зефира найден 8+3=11 раз</span>