Function 01PASCAL

Program Fun01 ;
var
 n:integer;

function teste(n:integer):integer;
var
 res:integer;
Begin
 if (n > 0) then
   res:=1
 else res:=0;
 teste:= res;
End;

 Begin
  Write('Informe Um Valor: ');
  readln(n);
  Writeln('Resultado: ',teste(n));

 Writeln('            by Marcus Vinicius');
 End.