program szoko; uses crt; var a:integer; begin clrscr; writeln('Add meg az evet, amit keresel!'); readln(a); if (a mod 4)=0 then writeln(a,' szokoev!') else writeln(a,' nem szokoev!'); readln; end.