program mn;
uses crt;
var x,k:word;
BEGIN
ClrSCr;
Write('x:');readln(x);
if x mod 100=77 then
writeln('net')
else begin
if (x mod 2=0)and((x div 2)mod 2 <>0)
then k:=1;
Write('Cislo:');readln(x);
While x mod 100<>77 do begin
if (x mod 2=0)and((x div 2)mod 2 <>0)
then k:=1;
Write('Cislo:');readln(x);
end;
Writeln('Elementov:',k);
end;
readln;
END.