Question

ПОМОГИТЕ ПАСКАЛЬ????

Answer 1

//PascalABC.Net
//1
var
  a, b, c: real;
begin
  readln(a, b, c);
  writeln(a+b+c - max(a, max(b, c)) - min(a, min(b, c)));
end.

//2
var
  a, b, c: real;
begin
  readln(a, b, c);
  writeln('Наименьшее число: ', min(a, min(b, c)));
  writeln('Наибольшее число: ', max(a, max(b, c)));
end.