Надо! обчислити значення виразів: 1. odd(6)2. odd(3)3. succ(10)4. pred(7)5. sqr(2)6. sqrt(16)7. trunc(6.9); round(6, 9); int(6.9); 8. trunc(-1.8); round(-1.8); int(-1.8);

{pascal }program calendar(input, output); var   num: integer; begin   write('введите номер месяца: ');   read(num);   case num of       1: writeln('январь');       2: writeln('февраль');       3: writeln('март');       4: writeln('апрель');       5: writeln('май');       6: writeln('июнь');       7: writeln('июль');       8: writeln('август');       9: writeln('сентябрь');       10: writeln('октябрь');       11: writeln('ноябрь');       12: writeln('декабрь');   end; end.

Var  month: integer;   begin  writeln('введите номер месяца(1-12): ');   readln(month);       case month of    1: writeln('январь');     2: writeln('февраль');     3: writeln('март');     4: writeln('апрель');     5: writeln('май');     6: writeln('июнь');     7: writeln('июль');     8: writeln('август');     9: writeln('сентябрь');     10: writeln('октябрь');     11: writeln('ноябрь');     12: writeln('декабрь');     else              writeln('неверно введён номер месяца! ');     end; end.