Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
corza71
Language:
Ada
Assembly
Bash
C#
C++ (gcc)
C++ (clang)
C++ (vc++)
C (gcc)
C (clang)
C (vc)
Client Side
Clojure
Common Lisp
D
Elixir
Erlang
F#
Fortran
Go
Haskell
Java
Javascript
Kotlin
Lua
MySql
Node.js
Ocaml
Octave
Objective-C
Oracle
Pascal
Perl
Php
PostgreSQL
Prolog
Python
Python 3
R
Rust
Ruby
Scala
Scheme
Sql Server
Swift
Tcl
Visual Basic
Layout:
Vertical
Horizontal
//fpc 3.0.0 program HelloWorld; var FirstName: string; var LastName: string; var Years: integer; var YesOrNo: string; var Color: string; begin writeln('Bien le bonjour, cher aventurier!'); writeln('Comment t''appelles-tu?'); readln(FirstName); writeln('Et... quel est ton nom?'); readln(LastName); writeln('Mes sincères salutations, M.',FirstName,' ',LastName); writeln('Et dis moi... quel âge as-tu?'); readln(Years); writeln('Oh! Tu as',' ',Years,'ans?! Tu as donc l''âge requis pour ta première... monture!'); writeln('Aimes-tu les licornes mon cher camarade?'); readln(YesOrNo); begin if (YesOrNo='oui') then begin writeln('Préfères-tu le jaune ou le magenta?'); readln(Color); if (Color='jaune') then writeln('Félicitations! Je te présente Pascal, la licorne gilet jaune!') else writeln('Félicitations! Je te présente Brigitte, la licorne magique!'); end else writeln('Dommage... Je t''envoie directement chez le dragon Sreeg! ;)'); end; writeln('Bonne journée!'); end.
Show compiler warnings
[
+
]
Show input
edit mode
|
history
|
discussion