составить программу с функцией в паскаль которая находит среднее арифметическое двух чисел

Var a,b : Real;Function SrAr(aa,bb :Real) : Real;Begin  SrAr:=(aa+bb)/2;end;Begin  Readln(a,b);  Writeln(SrAr(a,b));end.