1определить кол-во цифр в числе . 2 напечатать те натуральные числа квадрат которых не превышает n . 3 найти первое натуральное число куб которого больше n .

Var
  a, c : integer;
begin
  read (a);
  c := 0;
  while a > 0 do
  begin
    c := c + 1;
    a := a div 10;
  end;
  write (c);
end.

var
  i, n : integer;
begin
  read (n);
  for i := 1 to trunc (sqrt(n)) do
    write (i, ' ');
end.

var
  n, i : integer;
begin
  i := 1;
  while i*i*i <= n do
    i := i + 1;
  writeln (i);
end.