Составить программы вычисления и печати значения функции - Free Pascal

Формулировка задачи:

Составить программы вычисления и печати значения функции f(x) с использованием операторов условного перехода IF и оператора выбора CASE. Слева if, справа Case

Решение задачи: «Составить программы вычисления и печати значения функции»

Листинг программы

var x,f:real;
begin
write('Введите действительное число x=');
readln(x);
if x>5 then f:=(x+1)/(5-x)
else f:=0;
write('f(x)=',f:0:2);
readln
end.

Объяснение кода листинга программы

Объявление переменных x и f типа real.
Вывод сообщения для ввода значения переменной x.
Чтение значения переменной x с помощью функции readln.
Проверка условия x > 5.
Вычисление значения переменной f в случае истинного условия.
Вычисление значения переменной f в случае ложного условия.
Вывод значения переменной f с помощью функции write.
Чтение символа конца строки с помощью функции readln.
Завершение работы программы.