Question

Даны два числа a, b. Найдите число, большее их среднего арифметического.
Составьте блок – схему и в Паскаль

Answer 1

var a,b,c:integer;
begin
readln(a,b);
c:=(a+b)/2;
writeln(c);
end.