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

var a,b,c:integer;

begin

   a := 1;

   b := 2;

   c := 3;

   if a lt; b + c then begin

       writeln('OK 1');

       if b lt; a + c then begin

           writeln('OK 2');

           if b lt; a + b then

               writeln('OK 3')

           else

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

       end

       else

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

   end

   else

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

end.