Помогите пожалуйста, сделать блок-схему стиха(Только зачем же такая диета? Если любить – то лишь в полную силу! Если любить – то любить без запретов! Даже если она не просила...) через IF THEN и ELSE или объясните..

If - если Then - то Else - иначе Например: C:= A - B; (Если С больше нуля то) If C > 0 then begin (Вывод о том что) Writeln(число положительное); ... (Иначе оно) End esle (Может быть только отрицательным) Writeln(число отрицательное); ... Это же можно проделать с двумя if(если) If C > 0 then begin Writeln(число положительное); ... (Если С меньше нуля) If C < 0 then begin Writeln(число отрицательное); ...