Написать программу (в Паскале)),пж помогите

program zadacha;
var a,b:real;
begin
read(b);
a:=abs(power(b,5))-sqrt(b)+b;
write(a);
end.