Решить уравнение - Turbo Pascal (33976)

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

Уравнение 9

Решение задачи: «Решить уравнение»

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

var x,a,y:real;
begin
write('a='); readln(a);
write('x='); readln(x);
if x<-6 then y:=sqrt(x*x-4)/2 else if x<2 then y:=abs(x) else y:=exp(-x);
write('y=',y:5:2);
readln
end.

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

Объявляются переменные x, a, y типа real.
Выводится запрос на ввод значения переменной a.
Выводится запрос на ввод значения переменной x.
Проверяется условие x < 6. Если оно истинно, то присваивается переменной y значение sqrt(x*x-4)/2, иначе проверяется условие x < 2. Если оно истинно, то присваивается переменной y значение abs(x), иначе присваивается значение exp(-x).
Выводится значение переменной y с точностью до 5 знаков после запятой.
Выводится команда readln для чтения значения переменной x.