Количество дней в году. Строка-описание введенного числа

If28. Дан номер года (положительное целое число). Определить количество дней в этом году, учитывая, что обычный год насчитывает 365 дней, а високосный — 366 дней. Високосным считается год, делящийся на 4, за исключением тех годов, которые делятся на 100 и не делятся на 400 (например, годы 300, 1300 и 1900 не являются високосными, а 1200 и 2000 — являются).

var
  N, M: word;

begin   
  writeln('Введите номер года:');
  readln(N); { <-- Вводим номер года }
  writeln;
  { Проверяем соответствие года условиям: }
  if N mod 4 = 0 then
    if N mod 100 = 0 then
      if N mod 400 = 0 then M := 366
      else M := 365
    else M := 366
  else M := 365;
  { Выводим результат: } 
  writeln('Год ', N, ' имеет ', M, ' дней');
  readln
end.

**type** word;: Представляет 16-битовое целое число без знака.Диапазон значений: 0 .. 65 535 A **mod** B - остаток при целочисленном делении А на В A **mod** B - остаток при целочисленном делении А на В A **mod** B - остаток при целочисленном делении А на В If29. Дано целое число. Вывести его строку-описание вида «отрицательное четное число», «нулевое число», «положительное нечетное число» и т. д.

var
  N: integer;

begin
  writeln('Введите целое число:');
  readln(N); { <-- Вводим число }
  writeln;
  if N = 0 then writeln('Нулевое число.')
  else begin
    { Проверяем знак числа: }
    if N > 0 then write('Положительное')
    else write('Отрицательное');
    { Проверяем четность числа: }
    if odd(N) then write(' нечетное число')
    else writeln(' четное число')
  end;
  readln
end.

**type** integer;: Представляет 32-битовое целое число со знаком.Диапазон значений: -2 147 483 648 .. 2 147 483 647 **function** Odd(i: integer): boolean;: Возвращает True, если i нечетно If30. Дано целое число, лежащее в диапазоне 1–999. Вывести его строку-описание вида «четное двузначное число», «нечетное трехзначное число» и т. д.

var
  N: word;

begin
  writeln('Введите целое число с диапазона 1-999:');
  readln(N); { <-- водим число }
  writeln;
  { Проверяем четность числа: }
  if N mod 2 = 0 then write(' Четное ')
  else write(' Нечетное ');
  { Проверяем количество цифр числа: }
  if N < 10 then writeln('однозначное число')
  else
  if N < 100 then writeln('двузначное число')
  else writeln('трехзначное число');
  readln
end.

**type** word;: Представляет 16-битовое целое число без знака.Диапазон значений: 0 .. 65 535 A **mod** B - остаток при целочисленном делении А на В