Recherche:

program telegramme;
uses
wincrt;
var
prix: real;
mot:string;
pu:real;
begin
prix:=0;
writeln('entrer votre mot');

Comment changer les couleurs des cases.
Voici le code source :

#!/bin/sh
# This line continues for Tcl, but is a single line for 'sh' \
exec tclsh "$0" ${1+"$@"}

package require Tk 8.4
...