В Паскале для ветвления используется конструкция if-then-else. Вот пример простой программы на Паскале с ветвлением:

program BranchingExample;
var
num: integer;
begin
write('Enter a number: ');
readln(num);
if num > 0 then
writeln('The number is positive')
else if num < 0 then
writeln('The number is negative')
else
writeln('The number is zero');
end.

В этой программе, если введенное число больше 0, будет выведено "The number is positive". Если число меньше 0, будет выведено "The number is negative". В противном случае будет выведено "The number is zero".

Также в Паскале можно использовать конструкцию case-of для ветвления по нескольким вариантам значений.

program CaseExample;
var
day: integer;
begin
write('Enter the number of the day: ');
readln(day);
case day of
1: writeln('Monday');
2: writeln('Tuesday');
3: writeln('Wednesday');
4: writeln('Thursday');
5: writeln('Friday');
6: writeln('Saturday');
7: writeln('Sunday');
end;
end.

Это пример программы, которая просит пользователя ввести номер дня недели, а затем выводит соответствующий день.