Тема: Пошук середнього із трьох заданих чисел
program fgh;
var a,b,c : longint;
Begin
readln(a,b,c);
if (a>b) and (b>c) then
begin
writeln(b);
end;
if (a>c) and (c>b) then
begin
writeln(c);
end;
if (b>a) and (a>c) then
begin
writeln(a);
end;
if (c>b) and (b>a) then
begin
writeln(b);
end;
if (b>c) and (c>a) then
begin
writeln(c);
end;
if (c>a) and (a>b) then
begin
writeln(a);
end;
end.
Программа повинна знаходити середнє із трьох заданих чисел і виводити його на екран.