Mk83

Untitled

Nov 19th, 2019
104
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.17 KB | None | 0 0
  1. //fpc 3.0.0
  2.  
  3. program licorn;
  4. var
  5. name : string;
  6. age : byte;
  7. choice : byte;
  8. begin
  9. writeln('salut quelle est ton nom');
  10. readln (name);
  11. writeln('bonjour ',name);
  12. writeln('ok quelle est ton age');
  13. readln (age);
  14.  
  15. if age < 18 then
  16. begin
  17. writeln('ok aurevoir petit ');
  18. readln;
  19. end
  20. else
  21. begin
  22. writeln('ah tu es pas si petit');
  23. writeln('tu vas choisir entre 3 numero');
  24. writeln('chaque numero correspond a une monture et bien sur le choix des monture se fait a l aveugle');
  25. writeln('aller choisit 1|2|3|');
  26. readln (choice);
  27. if choice = 1 then
  28. begin
  29. writeln('tu as choisit le renard');
  30. readln;
  31. end;
  32. if choice = 2 then
  33. begin
  34. writeln('tu as choisi le meilleur BRAVO tu as la licorne gilet jaune');
  35. readln;
  36. end;
  37. if choice = 3 then
  38. begin
  39. writeln('tu as choisit la licorne bonnet rouge');
  40. readln;
  41. end;
  42. if choice > 3 then
  43. begin
  44. writeln('tu te fous de moi alors tu as la licorne pantalon gris ');
  45. readln;
  46. end;
  47. end;
  48. end.
Add Comment
Please, Sign In to add comment