Составить программы вычисления и печати значения функции f(x) с использованием операторов условного перехода IF и case - Free Pascal

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

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

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

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

var x:integer;
begin
write('Введите целое число x=');
readln(x);
case x of
2:write('f=',x);
3:write('f=',x*x+1/3:0:2);
4:write('f=',x*x*x);
else write('f(x) не определено')
end;
end.

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

Объявляется переменная x типа integer
Выводится сообщение с просьбой ввести целое число и нажать Enter
С помощью функции readln() считывается значение переменной x
Используется оператор case для определения значения функции f в зависимости от значения переменной x
При x=2 выводится значение f= и значение переменной x
При x=3 выводится значение f=, умноженное на значение переменной x, и значение переменной x неявно округляется до целого числа
При x=4 выводится значение f=, равное кубу значения переменной x
В остальных случаях выводится сообщение f(x) не определено