Rivoreo Source Code Repositories
src.rivoreo.one
/
compiler-explorer
/
dd2ab6d41fbbdfe778f7e601d79e3e381bdbe3ef
/
.
/
examples
/
pascal
/
default.pas
blob: 1bbf29d518b34fb5e527fdfd9ad9d18679550bf6 [
file
] [
log
] [
blame
] [
raw
]
unit output
;
interface
function
Square
(
const
num
:
Integer
):
Integer
;
implementation
// Type your code here, or load an example.
function
Square
(
const
num
:
Integer
):
Integer
;
begin
Square
:=
num
*
num
;
end
;
end
.