Паскаль работа с простой переменной и алгоритмами их обработки

[Ангелина123]

Помогите,пожалуйста, составить алгоритм, блок-схему и программный код по задачам:
1.Задано целое положительное число N меньшее 32000. Написать программу, определяющую, все ли цифры числа N меньше или равны 4. Если это условие выполняется, найти сумму этих цифр.
2. Задано целое число М. Определить произведение составных делителей числа М.

[Serge_Bliznykov]

Сообщение от Ангелина123

Помогите,пожалуйста, составить алгоритм, блок-схему и программный код по задачам:

А чем помочь то? Что-то непонятно, что-то разъяснить, подсказать?
Или Вы ожидаете, что "помочь" - это сделать всё за Вас?

[newerow1989]

№ 1

var n,k,s:integer;
    b:boolean;
begin
   Repeat
      Write('N = '); Readln(n);
   Until (n>0) and (n<32000);
   b:=true;
   s:=0;
   While n>0 do
   begin
      k:=n mod 10;
      n:=n div 10;
      s:=s+k;
      If k>4 then
         b:=false;
   end;
   If b then
      Writeln('Yes: s = ',s) else
      Writeln('No');
   Readln;
end.