Оформите в виде блок-схемы признак делимости натурального числа на 3. вот примерная схема: начало - х(3, 6, 9, 12, 15) - пустой прямоугольник - пустой ромб - да и нет - два пустых параллепипеда - конец.

                                                                                                                                    начало

                                                                                                                                            x

                                                                                                                  найти сумму цифр

                                                                                                    сумма чисел делится на 3

                  да                                                                                                                                                                                                                       нет   

число делится на 3                                                                                                                                                               число не делится на 3

                                                                                                                                конец

Достаточно длинный? ) var a: array [0..30] of integer;     i, o: integer;     s: string; begin       for i : = 1 to 30 do       begin           a[i] : = random(6) - 3;       end;       writeln('массив: ');       for i : = 0 to 30 do       begin           writeln('[', i, '] => ', a[i]);           if (a[i] > 0) then           begin               o : = o + a[i];               s : = s + inttostr(i) + ' ';           end;       end;       writeln('номера положительных чисел: ', s); end.

Const n = 10; var a, k, e: integer; begin       readln(a);       if (a > n) then         writeln('error')       else       begin           while (k < a) do           begin                 k : = k + 3;                 e : = e + 1;           end;           writeln(e);       end; end.вот и лифт =)