Який цикл називають вкладеним у розгалуження?
Яке розгалуження називають
вкладеним у цикл?

Больше мороки чем сложности...

Type int=100..999;
Var x:int;
Begin
 readln(x);
 case (x div 100) of
   1:write('Сто ');
   2:write('Двести ');
   3:write('Триста ');
   4:write('Четыреста ');
   5:write('Пятьсот ');
   6:write('Шестьсот ');
   7:write('Семьсот ');
   8:write('Восемьсот ');
   9:write('Девятьсот ');
 end;
 if ((x mod 100) div 10)=1 then
   case (x mod 10) of
     0:write('десять ');
     1:write('одиннадцать ');
     2:write('двенадцать ');
     3:write('тринадцать ');
     4:write('четырнадцать ');
     5:write('пятнадцать ');
     6:write('шестнадцать ');
     7:write('семнадцать ');
     8:write('восемнадцать ');   
     9:write('девятнадцать ');
   end
  else
   begin
    case ((x mod 100) div 10) of
      2:write('двадцать ');
      3:write('тридцать ');
      4:write('сорок ');
      5:write('пятьдесят ');
      6:write('шестьдесят ');
      7:write('семьдесят ');
      8:write('восемьдесят ');
      9:write('девяносто ');
    end;
    case (x mod 10) of
      1:write('один');
      2:write('два');
      3:write('три');
      4:write('четыре');
      5:write('пять');
      6:write('шесть');
      7:write('семь');
      8:write('восемь');
      9:write('девять');
    end;
   end;
End.

Поиск простых делителей числа:

var i,j,n:longint;
    f:boolean;
begin
 writeln('Введите число');
 readln(n);
  if n<2 then writeln('Простых делителей нет')
  else
   begin
    write('Число ',n,' ','= 1');
    for i:=2 to n do
     if n mod i=0 then
      begin
       f:=true;
       j:=2;
       while f and(j<=round(sqrt(i/2)))do
        begin
         if i mod j=0 then f:=false
         else j:=j+1;
        end;
      if f then write('*',i);
     end;
   end;
end.

Тестовое решение:

Введите число
2345
Число 2345 = 1*5*7*35*67