Напишите функцию которая возвращает сумму действительных чисел a b с d

Var
A,B,C,D:real;
Begin
WriteLn('Введи четыре числа');
ReadLn(A,B,C,D);
WriteLn(A,' + ',B,' + ',C,' + ',D,' = ',A+B+C+D);
End.