Урок 13.2 Задача 5

Урок 13.2 Задача 5

Задание: визуализируйте на счетах введенное пользователем число

var a, p, q, k, i, n: integer;
  begin
    readln(a);
    q:=a;
    p:=0;
    n:=10;
    while (q mod 10) > 0 do
      begin
        q:=q div 10;
        p:=p+1;
      end;
    while (a mod 10) > 0 do
      begin
        for i:=2 to (p-1) do
          begin
            n:=n*n;
          end;
        k:= (a div n);
        a:=a mod 10;
        writeln(k);
        p:=p-1;
        i:=2;
      end;
    readln();
  end.