Циклы. Определить количество нулей, которыми заканчивается запись числа n

program chislo;
var
  n,k,i,t:integer;
  str,a:string;
  begin
  readln(n);
  str:=inttostr(n);
  for i:= 1 to length(str) do begin
    t:= strtoint(str[i]);
    if t = 0 then
    inc(k)
    else begin 
      k:=0;
      a:=a + str[i];  
    end;
    end;
    writeln(k);
    writeln(a);
    writeln(a,'*10^',k);
    end.

program chislo;
var
  n,k,i,t,it:integer;
  str,a:string;
  begin
  readln(n);
  str:=inttostr(n);
  while(it <>length(str)) do begin
    inc(it);
    t:= strtoint(str[it]);
    if t = 0 then
    inc(k)
    else begin 
      k:=0;
      a:=a + str[it];  
    end;
    end;
    writeln(k);
    writeln(a);
    writeln(a,'*10^',k);
    end.

{Дано целое неотрицательное число n удовлетворяющее условию 0<n<=2*10^9 , определить кол-во нулей которыми заканчивается запись числа n. 
вывести n в виде a*10^k, где а - целое несодеражееще нуля в конце записи числа, k-кол-во записи числа n. 
Например 130 000 = 13*10^4. }
program chislo;
var
  n,k,i,t,it:integer;
  str,a:string;
  begin
  readln(n);
  str:=inttostr(n);
  repeat  begin
    inc(it);
    t:= strtoint(str[it]);
    if t = 0 then
    inc(k)
    else begin 
      k:=0;
      a:=a + str[it];  
    end;
    end;
    until(it = length(str));
    writeln(k);
    writeln(a);
    writeln(a,'*10^',k);
    end.