Приведите пример алгоритма содержащего ветвление.

var
a: real;
begin
write('Введите число: '); readln(a);
if a>0 then writeln('Число больше 0!')
else begin
if a=0 then writeln('Число равно 0!');
if a<0 then writeln('Число меньше 0!');
end;
end.

начало
хочется какать
да
нет
если да то пойти покакать
если нет, то ничего не делать
конец