Помогите написать код Pascal Abc к задаче
Помогите написать код для задачи с условием:
Было у отца 3 сына, Пети было A лет, Ивану было B лет, Сергею было C лет. Кто был средним по возрасту?
Please код напишите для Pascal. Чтобы ещё высвечивалось, кто был средним.
По дате
По рейтингу
var a,b,c:integer;
begin
readln(a,b,c);
if (a>b)and(b>c)or(c>b)and(b>a) then
writeln(b)
else if(b>a)and(a>c)or(c>a)and(a>b) then
writeln(a)
else if(a>c)and(c>b)or(b>c)and(c>a) then
writeln(c);
end.
