Здесь нужно работать с case на мой взгляд, т.к надо еще изменять формы дня, если знаешь как работать с case, то можешь расписать все, смотри пример:
int den;
int nomer;
Console.WritrLine("Введите день");
den = Convert.ToInt32(Console.ReadLine());
Console.WriteLine("Введите номер месяца")
nomer = Convert.ToInt32(Console.ReadLine());
switch (den)
{
case 1:
Console.WriteLine("До нового года 364 дня");
break;
}
и так далее
Var
T: array [1..5] of integer;
i, sum: integer;
begin
sum := 0;
for i := 1 to 5 do
begin
write('T[',i,'] = ');
readln(T[i]);
if (T[i] mod 2 = 0) then
sum := sum + T[i];
end;
writeln('Сумма четных элементов = ', sum);
end.