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

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