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

Задача 1 урок 14

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

program U14Z1;
var a,b,c,d:integer;
function sum(x,y,z:integer): integer;
begin
  result:=x+y+z;
end;
begin
  writeln('vvedite a, b, c');
  readln(a,b,c);
  d:=sum(a,b,c);
  writeln(d);
  readln();
end.