По заданному номеру месяца будет напечатано его название и указать, количество дней в месяце (оператор выбора case например: введите № месяца -> 1 это январь (дней - 31)

дальше измени сама

var month: integer; beginreadln(month); if ((month > 0 ) and ( month < 13)) thencase month of 1 : writeln ('january (31 days) '); 2 : writeln ('fabruary (28 days) '); 3 : writeln ('march (31 days)'); 4 : writeln ('april (31 days) '); 5 : writeln ('fabruary (28 days)'); 6 : writeln ('march (31 days)'); 7 : writeln ('january (31 days) '); 8 : writeln ('fabruary (28 days) '); 9 : writeln ('march (31 days)'); 10 : writeln ('january (31 days) '); 11 : writeln ('fabruary (28 days) '); 12: writeln ('march (31 days)'); end else writeln('error'); readln; end.

1).  ніколи не давайте приватної інформації про себе (прізвище, номер телефону, адресу, номер школи) без дозволу батьків. 2).   завжди дотримуйтесь сімейних правил інтернет-безпеки: вони розроблені для того, щоб ви почували себе комфортно і безпечно у мережі.3).  завжди будьте ввічливими у електронному листуванні, і ваші приятелі будуть ввічливими з вами.4).  не розсилайте листи з будь-якою інформацією незнайомим людям без їхнього прохання - це сприймається як "спам", і звичайно засмучує користувачів мережі.

Pascal: var     i,sum: integer;     sr: real;     a: array[1..10] of integer; begin     writeln('введите 10 чисел');     for i: =1 to 10 do         read(a[i]); repeat       if a[i]> 0 then           begin             sum: =sum+a[i];               p: =p+1;         end; until i: =10; sr: =sum/p; writeln('сумма = ',sum,'среднее арифмитический = ',sr); end.