Exercício 02 Funções e Procedimentos - Pascal

2) Altere o programa número 1 de forma que ele seja resolvido utilizando procedimento.

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.

Categories: Pascal , Programação