program bbb;<br />
     uses crt;<br />
     var i,n:integer;<br />
      s:real;<br />
      BEGIN<br />
       clrscr;<br />
        writeln('vv chislo') ;<br />
         readln(n);<br />
          if n mod 4=0 then<br />
          writeln('Делится на 4') else writeln('Не делится на 4');<br />
          readln;<br /> END.<br />