Rivoreo Source Code Repositories
src.rivoreo.one
/
compiler-explorer
/
1d4fa27ff2af6839aefad0654fefc8b97dcd10dc
/
.
/
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
.