Function 02PASCAL

Program Fun02 ;
var
 n:integer;

procedure teste(n:integer);
Begin
 if (n > 0) then
   Writeln('Resultado: 1')
 else Writeln('Resultado: 0');
End;

 Begin
  Write('Informe Um Valor: ');
  readln(n);
  teste(n);
 Writeln('            by Marcus Vinicius');
 End.