написать функцию MaxFrom3; MinFrom3 Она должна возвращать максимальное 3 целых чисел в первом случае и возвращать минимальное 3 целых чисел во тором случае это выполняется в паскаль абс

//PascalABC.NET 3.2 сборка 1318function MaxFrom3(a,b,c:integer):integer;Var  max:integer;begin  max:=a;  if max<b then max:=b;  if max<c then max:=c;  MaxFrom3:=max; end;  function MinFrom3(a,b,c:integer):integer;Var  min:integer;begin  min:=a;  if min>b then min:=b;  if min>c then min:=c;  MinFrom3:=min; end;