c case

[D1zz1]

и как это исправить?)

[Alex11223]

Например, так (заодно и без goto и с правильным определением високосного года)

  write('Введите год: ');
  readln(Y);
  while ((Y mod 4 = 0) and ((Y mod 100 <> 0) or (Y mod 400 = 0))) do
  begin
    write('Год високосный. Попробуйте еще раз: ');
    readln(Y);
  end;
  
  write('Введите номер месяца: ');
  readln(N);
  while(N < 1) or (N > 12) do
  begin
    write('Некорректный номер месяца. Попробуйте еще раз: ');
    readln(N);
  end;

  case N of
    1: write('Январь 31 день');
    2: write('Февраль 28 дней');
    3: write('Март 31 день');
    4: write('Апрель 30 дней');
    5: write('Май 31 день');
    6: write('Июнь 30 дней');
    7: write('Июль 31 день');
    8: write('Август 31 день');
    9: write('Сентябрь 30 дней');
    10: write('Октябрь 31 день');
    11: write('Ноябрь 30 дней');
    12: write('Декабрь 31 день');
  end;
end.

[D1zz1]

write('Введите год: ');

здесь выдает ожидание ":="

[Alex11223]

У меня все работает. Переменные объявить и begin в начале программы не забыл?)

[D1zz1]

да, мой косяк=) я про begin забыл :D спасибо большое=)