Question

Времени суток!
Слезно прошу помочь с информатикой. Сегодня. Задача на ветвление.
В больнице ведут прием 2 врача. Приемы платные. Подсчитать среднюю стоимость за прием у 1 и 2 врача.

Answer 1

Var a,b: integer;
c: real;
begin
writeln('Введите сумму денег приёма 2-ух врачей');
readln(a,b);
c:=(a+b)/2;
writeln(c);
end.