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

//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.