// процедура обмена значений переменных а и b
procedure swapp(var a,b:integer);
var c: integer;
begin
c:=a;
a:=b;
b:=c;
end;
// основная программа
var a,b,c: integer;
begin
write('числа a b c через пробел: ');
readln(a,b,c);
if a>b then swapp(a,b);
if b>c then swapp(b,c);
writeln('среднее по значению: ',b);
end.
Ввод -вывод:
числа a b c через пробел: 25 14 18
среднее по значению: 18
В номере 1-ответ 3
В номере 2-ответ 4
В номере 3-ответ 1
Удачи))
Var a,b,c:integer;
begin
Readln(a,b,c);
Writeln(max(max(a,b),c));
end.