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

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

Вычислить значения переменных: если m=14,1; g=-3,33E+2

Решение задачи: «Вычислить значение выражения»

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

const m=14;
      g=-3.33e+2;
var t1,t2,t3,x,y:real;
begin
x:=(m+g-sqrt(m*m+1))/(sqr(sin(m))-14)+sqr(cos(g));
y:=5*abs(x)-(m*m+exp(ln(10)*cos(g)));
write('y=',y:0:3,'  x=',x:0:3);
end.

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

const m=14; - объявляется константа m равная 14.
g=-3.33e+2; - объявляется переменная g и ей присваивается значение -3.33e+2.
var t1,t2,t3,x,y:real; - объявляются переменные t1,t2,t3,x,y типа real.
begin - начинается блок кода.
x:=(m+g-sqrt(m*m+1))/(sqr(sin(m))-14)+sqr(cos(g)); - вычисляется значение переменной x по формуле из задания.
y:=5abs(x)-(mm+exp(ln(10)*cos(g))); - вычисляется значение переменной y по формуле из задания.
write('y=',y:0:3,' x=',x:0:3); - выводится значение переменной y и x на экран.
end.; - заканчивается блок кода.