Алгоритм не имеет решения, т.к. после блока ввода стрелка раздваивается на 2 что не возможно без условия. после блока условия должна быть стрелка в логический блок из которго должно выходить 2 стрелки "истина" (да) и "лож" (нет). и цикл должен быть из логического блока куда ни будь на верх алгоритма, чаще всего вновь на услоие.
1. Компьютер
2. Антивирус
3. Локальная сеть (интернет)
Var
a, min: integer;
begin
min :=30000;
repeat
readln(a);
if (a mod 3 = 0) and (a < min) and (a <> 0) then
min := a;
until a = 0;
writeln(min);
<span>end.</span>
Составим план:
1История создания
2использование человеком
3Внешнее стоение
4 Внутреннее строение
Ну и т.д.