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

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

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

var m,n,k:integer;

  function f2(a,b,c: integer): integer;
  var r: integer;
  begin
    r:=(a+b+c);
    result:=r;
  end;

  begin
    readln(m,n,k);
    k:=f2(m,n,k);
    writeln(k);
    readln();
  end.