Вычислить значение выражения - Free Pascal (986)

Задано вещественное значение аргумента х. Вычислите значение функции у:

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

var
  x,y:real;
begin
  write('Введите Х');
  readln(x);
  if x<=2 then
    y:=sqr(cos(x))+5
  else
    y:=sqrt(x+1); 
  writeln('Y = ',y);
end.

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

Объявлены две переменные: x и y типа real.
Выводится сообщение «Введите Х» и считывается значение переменной x с помощью функции readln.
С помощью условного оператора if проверяется значение переменной x. Если x <= 2, то выполняется блок процедур.
Вычисляется значение переменной y как квадрат косинуса от x плюс 5.
Если x > 2, то выполняется блок процедур.
Вычисляется значение переменной y как квадратный корень от суммы x и 1.
Выводится значение переменной y с помощью функции writeln.