25. С клавиатуры вводятся два целых числа (r, b). Вывести
на экран число (s, d). Если введенное число больше 100, то найти
среднее арифметическое двух чисел(s), если меньше 100, то найти
разность этих чисел(d). Срочноо помогите плиз
на экран число (s, d). Если введенное число больше 100, то найти
среднее арифметическое двух чисел(s), если меньше 100, то найти
разность этих чисел(d). Срочноо помогите плиз
Answers & Comments
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.