Напишите функцию, которая возвращает сумму действительных чисел a, b, c, d.
Function sum(var a,b,c,d:real;):real; var s:real; begin s:=a+b+c+d; sum:=s; end;
Функция, возвращающая сумму действительных чисел a,,b,c,d равна a+b=c+d