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

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

var x,y,z:integer;
function sum(a,b,c: integer):integer;
begin
  result:=a+b+c;
end;

begin
  writeln ('Vvedite celoe chislo: ');
  readln(x);
  writeln('Vvedite celoe chislo: ');
  readln(y);
  writeln('Vvedite celoe chislo: ');
  readln(z);
  writeln(sum(x,y,z));
  readln();
end.   

Контроль:

Vvedite celoe chislo: 
5

Vvedite celoe chislo: 
4

Vvedite celoe chislo: 
7

16