Rivoreo Source Code Repositories
src.rivoreo.one
/
compiler-explorer
/
c81fd4f6cbade6202fdf6abd2537aef5d9bf5945
/
.
/
examples
/
pascal
/
default.pas
blob: eddb3978a77ca7045e70db9b5e6d482fa67bec6b [
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
.