Question

сделать программу под блок схему (кумир)

Answer 1

var a,b,c:integer;

begin

   a := 1;

   b := 2;

   c := 3;

   if a < b + c then begin

       writeln('OK #1');

       if b < a + c then begin

           writeln('OK #2');

           if b < a + b then

               writeln('OK #3')

           else

               writeln('Нет решения #3');

       end

       else

           writeln('Нет решения #2');

   end

   else

       writeln('Нет решения #1');

end.