Такова. нам дана программа, которая написана на 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;