Объяснение:
var a, b, c : Integer;
result : Real;
begin
write('a = '); readln(a);
write('b = '); readln(b);
write('c = '); readln(c);
result := (a + b) - c / (a - b);
writeln('result = ', result);
end.
