ввести 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.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.