Помогите, пожалуйста PaskalABC

Ответ:

var a,b:Real;

begin

b:=5.4;

write ('a = ');

Readln(a);

if a<0 then Write('a = ',a*a) else

if a>2 then Write('a = ',sqr(a)*a) else

Write('a = ',(b*b-a)/(3+a))

end.