Pascal. Нужно просто вычислить значение выражения по формуле

var y,x,a: Integer;beginwriteln('Введите x: ');readln(x);writeln('Введите a: ');readln(a);if x<9 thenwriteln('x<9, y=x+a=',x+a);if x>9 thenwriteln('x>9, y=x-a=',x-a);if x=0 thenwriteln('x=0, y=x²+a²=',(x*x)+(a*a));end.