résolution problémes pascal

je ne vois pas où est le problème

Ben si, il a un exo tout bête à faire, et il nous demande qu'on l'aide.
Comme ça, on sera obligé de l'aider pour les exos suivant etc.
Quand tu auras un boulot où il faudra programmer, là aussi tu nous demanderas de faire ton boulot ? :-D

C'est comme ca quand on a rien foutu de l'année et on se rend compte qu'on ne comprend rien à un exercice basique

program couleur;
uses wincrt;
var c:char;
mess:string;
begin
write('appuyer sur une touche du clavier: ');
read (c);
if upcase(c)='b'
then
begin
mess:='LA COULEUR QUI CORRESPEND EST LE BLEUE';
write(mess);
end
else
if
(c='v')or(c='V')
then
begin
mess:='LA COULEUR QUI CORRESPEND EST LE VERT';
write(mess);
end
else
if
(c='r')or(c='R')
then
begin
mess:='LA COULEUR QUI CORRESPEND EST LE ROUGE';
write(mess);
end
else
if
(c='j')or(c='J')
then
begin
mess:='LA COULEUR QUI CORRESPEND EST LE JAUNE';
write(mess);
end
else
begin
mess:='LA COULEUR QUI CORRESPEND EST LE NOIR';
write(mess);
end;


end.


merci a tous j'ais dejà fait

deécriver avec exactitude le chemin pour aller à pied du lycé à la municipalité ou à un autre lieu connude la ville

selon c faire
'b': écrire('blanc')
'v':écrire('vert')
'r':écrire('roug')
'j':écrire('jaune')
sinon
écrire(noire)

program couleur;
uses wincrt;
var L :char ;
C : string ;
Begin
Write('donner un caractére: ');
read(L);
case Upcase(L) of
'V': C:='VERT';
'B': C:='BLEU';
'R': C:='ROUGE';
'J': C:='JAUNE';
else C:='Noir';
end;
Write('la couleure correspondante est: ',C);
end.