procedure Add3AndPrint(Value: Integer);
begin
  WriteLn(Value + 3);
end;

begin
  Add3AndPrint(5);
  //prints 8
end.