Question

25. С клавиатуры вводятся два целых числа (r, b). Вывести
на экран число (s, d). Если введенное число больше 100, то найти
среднее арифметическое двух чисел(s), если меньше 100, то найти
разность этих чисел(d). Срочноо помогите плиз​

Answer 1

var r, b, s, d: integer;

begin

writeln('Enter two integers (r, b): ');

readln(r, b);

if (r + b > 100) then

s := (r + b) div 2

else

d := abs(r - b);

writeln('Result: ', s, d);

end.