Целая-часть (неделя-день недели)
род-вид (цветок-маргаритка)
последовательность (среда,четверг)
<span>причина-следствие (жара-жажда)</span>
Попробуй:
("А" одно из чисел последовательности, а Q кол-во нулей)
Begin
For i:=1 to n do
Read(A);
If A=0 then inc(Q);
Write(Q);
End.
program abc;
var a,b,c:integer;
begin
writeln('Заштрихованная область=x,y');
end.