Задача, циклы Опции

[Диона]

Помогите решить задачки (на циклы):
1) Подсчитать k-- количество цифр неотрицательного целого числа n.

2) Найти d--старшую (левую) цифру неотрицательного целого числа n.

3) Определить, сколько раз (k) цифра 8 встречается среди первых пяти цифр дробной части положительного вещественного цичла x.

4) Получить целое число k добавлением слева цифры 6 к десятичной записи натурального числа n (например, k=6107 при n=107).

5) Логической переменной t присвоить значение true, если натуральное число k есть степень 10(1,10,100...), и значение false иначе.

[klem4]

Чувствуется на долго это ...

1)

var
  n: LongInt;
  k: Byte;

begin

  write('n = '); readln(n);

  k := 0;

  if n = 0 then k := 1 else
    while (n > 0) do begin
      inc(k);
      n := n div 10;
    end;

  writeln(k);

end.

2)

var
  n, temp: LongInt;
  left, k, t: Byte;

begin

  write('n = '); readln(n);

  k := 0;

  temp := n;

  while (temp > 0) do begin
    inc(k);
    temp := temp div 10;
  end;

  if k < 6 then writeln('No') else begin

    temp := n;

    t := k - 6;

    k := 0;

    while (k < t) do begin
      inc(k);
      temp := temp div 10;
    end;

    writeln(temp mod 10);

  end;
end.

3)

var
  n: Single;
  temp: LongInt;
  k, t: Byte;

begin

  write('n = '); readln(n);

  temp := Round(n - Frac(n));

  k := 0;

  while (temp > 0) do begin
    inc(k);
    temp := temp div 10;
  end;

  if k < 5 then writeln('No') else begin

    temp := Round(n - Frac(n));

    t := k - 5;

    for k := 1 to t do temp := temp div 10;

    k := 0;

    while (temp > 0) do begin

      if temp mod 10 = 8 then inc(k);

      temp := temp div 10;

    end;

    writeln(k);

  end;

end.

4)

var
  n, temp: LongInt;
  k: Byte;

begin

  write('n = '); readln(n);

  if n = 0 then n := 60 else begin

    temp := n;

    k := 0;

    while (temp > 0) do begin
      inc(k);
      temp := temp div 10;
    end;

    n := n + 6 * Round(Exp(k * ln(10)));

 end;

 writeln(n);

end.

var
  n, last: LongInt;
  t: Boolean;
  count1: Byte;

begin

  write('n = '); readln(n);

  count1 := 0;

  while (n > 0) and (count1 < 2) and (n mod 10 in [0, 1]) do begin

    last := n mod 10;

    if last = 1 then inc(count1);

    n := n div 10;
  end;

  t := (last - count1 = 0) and (n mod 10 in [0, 1]);

  writeln(t);

end.

может перемудрил местами, не проснулся еще ...