[burger]

Помогите сделать задачу на delphi.дан номер месяца(1-январь,2-февраль)
по введенному числу вывести количество дней в этом месяце(год невисокосный).

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14

program pri; uses crt; var m:integer; begin clrscr; writeln('vvedite mesyac'); readln(m); case m of 1,3,5,7,10,12:writeln('31'); 2:writeln('29'); else writeln('30'); readln; end; end.

Не могу сделать на delphi путаюсь в label

[AlexSku]

Вместо WriteLn писать Label1.Caption:= '31';
а алгоритм засунуть в какой-нибудь обработчик, напр. Button1OnClick

[burger]

Вот ошибка поменял как ты сказал