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

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.

Comments

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