7 задание прошу посчитайте

Program prog;

var a, b, y: real;

begin

read(a);

read(b);

y:=Ln(Abs( (Exp(-Sqr(a) + b) + 2 * sqrt(a*b) ) / 2*Sqr(Sin( a / b )) + b ));

writeln(y);

end.

Программа считает значение y при вводе a и b и выводит результат. А если нужно только значение y записать на Паскале, но не считать. тогда нужна будет только одна строка - y:=. . .