Наприклад розглянемо алгоритм обчислення кореня квадратного із заданого речового числа.

З математики нам відомо, що квадратний корінь неможливо обчислити, якщо підкорене вираз негативне. Отже, перш ніж обчислювати значення кореня квадратного із заданого числа, слід перевірити його значення: якщо значення вихідного числа менше нуля, то повідомити, що обчислити неможливо, інакше - обчислити і вивести результат.

var x, y: Real;

begin
 readln(x);
 if x < 0
  then writeln('Обчислити неможливо')
  else begin
        y := sqrt(x);
        writeln(y:0:3)
       end
end.