Процедуры

[Azimzhan]

Дано натуральное число n. Составить программу для определения количества цифр в этом числе.
4. Написать программу для поиска 100 первых простых чисел.
Нужно из этих двух задач составить диалоговую программу... Тоесть сначала решить оба а потом объединить их в одно через процедуру.... Или хотя бы просто решите мне эти 2 задачи... Срочно пожалуйста заранее спасибо

[newerow1989]

1 задача:

var n:integer;
     s:string;
begin
   Readln(n);
   s:=IntToStr(n);
   Writeln(Length(n));
   Readln;
end;

4 задача:

function simple(n:integer):boolean;
var i:integer;
begin
   Result:=false;
   If n<2 then
      Exit;
   For i:=2 to Trunc(Sqrt(n)) do
      If n mod i=0 then
         Exit;
   Result:=true;
end;

var p:array[1..1000] of integer;
    i,k:integer;
begin
   Randomize;
   For i:=1 to 1000 do
      p[i]:=Random(1000);
   k:=0;
   For i:=1 to 1000 do
      If simple(p[i]) then
      begin
         Write(p[i],'  ');
         k:=k+1;
         If k=100 then
            Break;
      end;
   Writeln;
   Writeln('k = ',k);
   Readln;
end.

Сойдет?