Программирование алгоритмов с двумя формами ветвлений – альтернативой и переключателем - Pascal

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

Привет ребята, помогите пожалуйста решить, не могу, объясните кратко пожалуйста.

Решение задачи: «Программирование алгоритмов с двумя формами ветвлений – альтернативой и переключателем»

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

var
  x,y: real;
begin
  repeat
    write('Г‚ГўГҐГ¤ГЁГІГҐ x: (0 <= x <= 6): ');
    readln(x);
  until (x>=0) and (x<=6);
  if odd(trunc(x)) then // ГҐГ±Г«ГЁ Г¶ГҐГ«Г*Гї Г·Г*Г±ГІГј Г·ГЁГ±Г«Г* Г• Г*ГҐГ·ГҐГІГ*Г*Гї, ГІГ®
  // Г°Г*Г±Г±Г·ГЁГІГ»ГўГ*ГҐГ¬ ГЇГ® ГІГҐГ®Г°ГҐГ¬ГҐ ГЇГЁГґГ*ГЈГ®Г°Г* (frac(x) - Г¤Г°Г®ГЎГ*Г*Гї Г·Г*Г±ГІГј Г·ГЁГ±Г«Г*)
  y:=sqrt(1-sqr(frac(x))) // Гў ГЅГІГ®Г© Г·Г*Г±ГІГЁ ГЈГ°Г*ГґГЁГЄГ* Y ГіГўГҐГ«ГЁГ·ГЁГўГ*ГҐГІГ±Гї
  else y:=1-sqrt(1-sqr(frac(x))); // Гў ГЅГІГ®Г© - Y ГіГ¬ГҐГ*ГјГёГ*ГҐГІГ±Гї
  write('y=',y:0:3);
  readln;
end.

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

В данном коде происходит следующее:

Ввод значения переменной x с помощью функции readln().
Проверка на нечетность числа x с помощью функции odd().
Вычисление значения переменной y с помощью формулы sqrt(1-sqr(frac(x))) или 1-sqrt(1-sqr(frac(x))) в зависимости от того, является ли x нечетным числом.
Вывод значения переменной y с помощью функции write().
Ввод значения с помощью функции readln() для завершения работы программы. Список переменных и их значений:
x - значение реального числа, введенное пользователем.
y - значение, вычисленное по формуле в зависимости от значения x.