Кто в Паскале разбирается Составьте программу вычисления значения функции у при произвольных значениях х, а, b.(фото ниже)

var a,b,x,y:real;
begin
write('a b x: '); readln(a,b,x);
if x>4 then y:=sqrt(a+abs(sin(x))) else y:=sin(b*x)/cos(b*x);
writeln(y); readsln
end.