Ввести a, b и c и вычислить x= (a*b-c)/(2+a), если a+b> 0 или a< 0, x=a-b в противном случае написать программу pascal

Uses crt;
var a, b, c, x, f:real;
begin
write('a='); read(a);
write('b='); read(b);
write('c='); read(c);
x:=(a*b-c)/(2+a);
f:=a-b;
if (a+b>0) or (a<0) then write('f=',f)                   
                           else write('x=',x);
end.