函数

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

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

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

  DivValue := GetDiv(53);
  //divValue is 1

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