Помогите пожалуйста написать функцию в паскале

y=(x+a)^2, если x не равно b
x+exp(b), если х=b

(как должно быть)

Рrogram pr2;
uses crt;
var x,a,y : real;
begin
clrscr;
write(‘ введите х,а’); read(x,a);
if x>=a then y:=sin(x)+exp(a)
else y:=sqrt(x*x+a*a)-5*a;
write(‘ y=’,y);
end.