Написать функцию, подсчитывающую количество цифр целого числа. Используя ее, определить, в каком из двух данных чисел больше цифр.

uses crt;
var n1,n2:longint;
k1,k2:byte;
function zifr (x:longint):integer;
var k:integer;
begin
  k:=0;
  while x<>0 do
    begin
      inc(k);
      x:=x div 10;
    end;
  zifr:=k;
end;

begin
  clrscr;
  writeln('n1=n2=');readln(n1,n2);
  k1:= zifr(n1); k2:= zifr(n2);
  if k1 =k2 then writeln ('Одинаково')
    else
      if k1>k2 then writeln('B n1>n2')
        else writeln('B n2>n1 ');
  readln;
end.