Question

Помогите плиз!
Напишите программу для вычисления значения выражения (a+b)/(a-b) для различных целых значений переменных.

Переменные вводить с клавиатуры оператором ввода информации READLN

Результат выведите в виде

ЗНАЧЕНИЕ ВЫРАЖЕНИЯ XX.XXX

c тремя знаками после запятой.

Answer 1

var

 a, b: integer;

 res: real;

begin

 write('Число a:');

 readln(a);

 write('Число b:');

 readln(b);

 res :=(a+b)/(a-b);

 writeln('Результат:', res:2:3);

end.

Answer 2

Если не сложно, можно лучший?