Задача 1 Урок 14.2

Задача 1 Урок 14.2:

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

program u142z1;
var a,b,c:integer;
function sum(a,b,c: integer): integer;
begin
  result:=a+b+c;
end;

begin
  writeln('Vvedite A,B,C ');
  readln(a, b, c);
  writeln('Summa=: ', sum (a, b, c));
  readln ();
end.