Наприклад розглянемо алгоритм обчислення кореня квадратного із заданого речового числа.
З математики нам відомо, що квадратний корінь неможливо обчислити, якщо підкорене вираз негативне. Отже, перш ніж обчислювати значення кореня квадратного із заданого числа, слід перевірити його значення: якщо значення вихідного числа менше нуля, то повідомити, що обчислити неможливо, інакше - обчислити і вивести результат.
var x, y: Real;
begin
readln(x);
if x < 0
then writeln('Обчислити неможливо')
else begin
y := sqrt(x);
writeln(y:0:3)
end
end.