Такова. нам дана программа, которая написана на 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;
var c,r:integer;
begin
TextColor(Green);
writeln('EASYMONEY 1.1');
TextColor(White);
repeat
c:=random(16)+1;
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;
writeln('Повторить? 1-Да, 0-Нет');
readln(r);
until r=0;
readln;
end.