С возвращаемым значением

Функции

function GetSum(N1, N2: Integer): Integer;
begin
  Result := N1 + N2;
end;

function GetDiv(N1, N2: Integer): Integer;
begin
  Result := N1 div N2;
end;

var
  Sum, DivValue: Integer;
begin
  Sum := GetSum(5, 3);
  //sum is 8

  DivValue := GetDiv(5, 3);
  //divValue is 1

  WriteLn('sum is ', Sum);
  WriteLn('div is ', DivValue);
end.