Даны целые числа N и M. Определить на интервале <от меньшего из них до большего из них>, каких целых чисел больше — делящихся на 3, или делящихся на 4. Если ни одно из чисел не делится ни на 3, ни на 4, сообщить об этом — Pascal(Паскаль)

var
 tmp,n,m,i,count:integer;
begin
 readln(n);
 readln(m);
 if n > m then begin
   tmp:=n;
   n:=m;
   m:=tmp;
 end;
 for i:= n to m do
 if i mod 3 = 0 then
   inc(count)
 else
 if i mod 4 = 0 then
   dec(count);
 if count = 0 then
   writeln('ravno')
 else
 if count > 0 then
   writeln('delishihsja na 3 boljshe')
 else
   writeln('delishihsja na 4 boljshe');
end.