var
  txt: String;
  i: Byte;
begin
  WriteLn ('Haypo !');   { Ecrit une chaîne de caractère }
  WriteLn (10);   { Ecrit le nombre 10 }
  WriteLn ('dix = ',10);   { Mélange de chaîne de caractère et de nombre }
  txt := 'Haypo Power !!!';
  WriteLn (txt);   { Ecrit le contenu de la variable "txt" }
  i := 123;
  WriteLn (i);   { Ecrit le contenu de la variable "i" }
end.