Решение № 1 из главы 14.Напишите функцию, которая возвращает сумму трёх целых чисел

напишите функцию, которая возвращает сумму трёх целых чисел.

Задача № 1

program pascal_function;
var
  a, b, c: integer; // глобальные переменные
function sum( s1 , s2  , s3  : integer ) : integer;
begin // начало тела функции
  result := s1 + s2 + s3  ;
end; // конец тела функции

begin  // начало тела основной программы
  readln ( a , b ,c ) ; 
  writeln(sum( a , b ,c ));// вызов функции 
end. // конец тела основной программы