Составить программу, которая по заданным году и номеру месяца m определяет количество дней в этом месяце? в паскале

Смотри во вложениях. п.с. оператор кэйс даже расписал.

// pascalabc.net 3.3, сборка 1579 от 18.11.2017 // внимание! если программа не работает, обновите версию! begin   var s: =readlnstring('введите строку слов: ');   var w: =readlnstring('введите слово для замены: ');   var (fc,lc): =(w.first,w.last);   s: =s.towords.select(v-> (pos(fc,v)> 0) or (pos(lc,v)> 0)? w: v)           .joinintostring;   writeln(s) end. пример введите строку слов: наша таня громко плачет уронила в речку мячик введите слово для замены: удалено наша таня удалено плачет удалено в удалено мячик

Var a: array[1..10]of integer; i: integer; begin for i: = 1 to 10 do   begin       read(a[i]);       if a[i] mod 2 < > 0 then write(a[i], ' ');   end; end. /~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/ //более современное решение // pascalabc.net 3.3, сборка 1576 от 16.11.2017 // внимание! если программа не работает, обновите версию! begin var a: = readlnstring('введите массив').tointegers; setlength(a, 10); a.where(t-> t.isodd).println; end.