12288бит=1536байт=1,5Кбайт
Я думаю, у Вали зимой, у Кати осенью, у Наташи весной, у Маши летом.
Переведи все составляющие уравнения в 10 сс, реши уравнение и Х переведи потом из 10 в троичную сс.
Var
A,B,i:integer;
k:byte;
Begin
i:=0;
k:=0;
Repeat
Read(A);
i:=i+1;
if (i>2)and(i<5) then
Begin
B:=Abs(A);
if (9<B)and(B<100)and(B mod 10 = 2) then k:=k+1;
End;
Until (A = 0)or(i>=5);
if A<>0 then
Repeat
Read(A);
Until A = 0;
WriteLn(k)
End.