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

Формула:

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.