Составить программу для вычисления X и Y по формулам - Pascal ABC (14454)

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

Составить программу для вычисления X и Y по формулам:

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

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

var a,b,x,y:real;
begin
writeln('Введите a,b');
readln(a,b);
x:=sqrt(abs(1+a*cos(b)))-3*sin(pi*a/2);
y:=3*sin(pi*x)+exp(-2)+1;
write('x=',x:0:2,'  y=',y:0:2)
end.

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

Создается переменная a и присваивается ей значение readln(a).
Создается переменная b и присваивается ей значение readln(b).
Вычисляется значение переменной x по формуле sqrt(abs(1+a*cos(b)))-3*sin(pi*a/2).
Вычисляется значение переменной y по формуле 3*sin(pi*x)+exp(-2)+1.
Выводится значение переменной x с точностью до 2 знаков после запятой с помощью функции write.
Выводится значение переменной y с точностью до 2 знаков после запятой с помощью функции write.
Программа завершается.