RedNexX

Untitled

Aug 4th, 2019
118
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.21 KB | None | 0 0
  1. Program Pzim ;
  2.  
  3. var frase:string;
  4.  
  5. Begin
  6.  
  7. writeln('Introduza uma frase');
  8. readln(frase);
  9.  
  10. if frase='sim' then
  11. writeln('POSITIVO')
  12. else
  13. writeln('NEGATIVO');
  14.  
  15. End.
  16.  
  17. Input= sim
  18. Output= POSITIVO
Advertisement
Add Comment
Please, Sign In to add comment