fpc -Co -Cr -Miso -gl name.pas && ./name
or use the command
sh compile.sh name
PROGRAM template;
variable: type;
function MyFunction(params):integer;
{* pre condition *}
{* Local Vars *}
{* Local functions *}
begin
{code...}
MyFunction := 0; {* To return the value *}
end;
{* parametro por valor y referencia *}
procedure MyProcedure(x: Integer, Var a: char);
begin
end;
begin
end;