Помогите составить алгоритм ветвление.

Сравнить два числа, введенных пользователем. Необходимо указать, какое число больше, или, если числа равны, вывести об этом сообщение.

Это в паскале

var

a, b:real;

begin

write ('Введите первое число - ');

readln (a);

write ('Введите второе число - ');

readln (b);

if a=b then writeln (a,'=', b)

else

if a>b then writeln (a,'>', b)

else writeln (b,'>', a);

end.