Помогите решить ошибку:Ошибка: Program7.pas(12): Ожидалось константное выражение Z5...

Question

Помогите решить ошибку:
Ошибка: Program7.pas(12): Ожидалось константное выражение
Z5 программы;

var d, m, g: целое число;

начать

writeln («Программа для вычисления следущего дня!»);
записи ('Введите день, месяц, год: ');
readln (d, м, g);

случае g
g: Если g mod 4 затем
начать
случае м
2:
если d < = 29, затем
если d = 29, затем
начать
writeln («Последний день месяца!»);
writeln («Завтра», d - 28,'. ', m + 1, '.', g);
конец
еще
writeln («Завтра», d, '.', м, '.', g)
еще
writeln («В месяце», м, «28 день!')
конец;
конец
еще
еще
конец;
конец.

---

Comments

жди

---

откуда ты брал программу ?

---

в каком смысле брал?

---

так-с, а если я перепишу программу?

---

ок

---

Пример case

---

readln(NUM);case NUM of0:writeln (‘Нуль’);1:writeln (‘Один’);2:writeln (‘Два’);3:writeln (‘Три’);4:writeln (‘Четыре’);end;

---

это я знаю

---

предоставьте пожалуйста ваш код

---

Я исправлю его и укажу на ошибку

Answer 1

Program man812;
var  d, m, y: integer;
begin  writeln('Введите дату:');  write(' - День:');read(d);  write('- Месяц:');read(m);  write('- Год:');read(y);  d := d + 1;  {если было введено 29 февраля високосного года}  if (((y mod 4) = 0) and ((y mod 100) <> 0) and (m = 2) and (d = 30)) then  begin    d := 1;    m := m + 1;  end;  {если было введено 28 февраля невисокосного года}  if (((y mod 4) <> 0) and (m = 2) and (d = 29)) then  begin    d := 1;    m := m + 1;  end;  {другие дни}  if ((d = 31) and ((m = 4) or (m = 6) or (m = 9) or (m = 11))) then  begin    d := 1;    m := m + 1;  end;  if ((d = 32) and ((m = 1) or (m = 3) or (m = 5) or (m = 7) or (m = 8) or (m = 10))) then  begin    d := 1;    m := m + 1;  end;  {31 декабря}  if ((d = 32) and (m = 12)) then  begin    d := 1;    m := 1;    y := y + 1;  end;  writeln('Завтра ', d, ' ', m, ' ', y);end.

Comments

Спасибо

---

что-то я накосячил, с кодом, если не понятно, в ЛС отправь почту, я скину .pas, там всё хорошо

---

добавил .pas, мало ли, всего доброго.