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

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

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

Решение:

var s,k,m,n: integer;

function sum3(a,b,c: integer): integer;
begin
  result:=a+b+c;
end;
begin
  k:=1;
  m:=2;
  n:=3;
  s:=sum3(k,m,n);
  writeln('summa = ',s);
  readln();
end.

Консоль:

summa = 6