Var i:integer; begin writeln('введите число от 1 до 7'); readln(i); case i of 1:writeln('Понедельник'); 2:writeln('Вторник'); 3:writeln('Среда'); 4:writeln('Четверг'); 5:writeln('Пятница'); 6:writeln('Суббота'); 7:writeln('Воскресенье'); end; readln; end.
1) Слева должна быть переменная Верно A:=5+5 3) не ясно, является переменная C строковой, чтобы можно было осуществить склейку. 4) Если game описано как целое, то верно 5) Можно сделать так: a:=5; c:=5;