warna

uses crt;
var warna : char;
begin
clrscr;
write(' masukkan huruf a-d :');readln(warna);
case warna of
'a': writeln('merah');
'b': writeln('kuning');
'c': writeln('hijau...');
'd': writeln('biru');
end;
readln;
end.