Question

Задача такова. Нам дана программа, которая написана на Pascal ABC Net:

uses Crt;
var c:=random(1,16);
begin
TextColor(Green);
writeln('EASYMONEY 1.1');
TextColor(White);
case c of
1,5,7,9,11,13,15: writeln(c,' - Красный');
2,4,6,8,10,12,14,16: writeln(c,' - Чёрный');
else writeln(c,' - Зелёный');
end;
readln;
end.

Необходимо дополнить её, так чтобы при нажатии на клавишу повторялся каждый раз цикл:

case c of
1,5,7,9,11,13,15: writeln(c,' - Красный');
2,4,6,8,10,12,14,16: writeln(c,' - Чёрный');
else writeln(c,' - Зелёный');
end;