[burger]

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

Код:

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]

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