Написати функцію season, що приймає 1 параметр - номер місяця (від 1 до 12), і повертає час року, до якого цей місяць належить (зима, весна, літо або осінь). Програма, яка використовує функцію season вже написана. Вона запитує номер місяця і друкує потрібний рядок. Наприклад, "Це - літо.". Додай в потрібне місце визначення функції season. Функція отримує в якості свого параметра номер місяця. За до декількох умовних операторів визначає, до якого часу року відноситься місяць. Після цього повертає (return) один з рядків: "зима", "весна", "літо", "осінь". Пори року пишуться маленькими літерами без розділових знаків.

program numsum;

uses

 SysUtils;

var

 n, i, sn: Integer;

 s: string;

begin

 Write ('Введите четырехзначное число: ');

 ReadLn (n);

 n := Abs (n);

 if (n > 9999) or (n < 1000) then begin

   WriteLn ('Введенное число не четырехзначное');

   ReadLn;

   Exit;

 end;

 s := IntToStr (n);

 sn := 0;

 for i := 1 to Length (s) do

   sn := sn + StrToInt (s [i]);

 WriteLn ('Сумма цифр числа = ', sn);

 if sn mod 5 = 0 then

   WriteLn ('Сумма цифр делится на 5')

 else

   WriteLn ('Сумма цифр не делится на 5');

 ReadLn;

end.

Жили собі два півники.один працьовитий,а другий ледар.колись завелась там лесичка. є перший,а другому всеодно.нічого мені вона не зробить.потім настала ніч.всі позасинали.а крадійка ока не зімкнула,крадеться непомітно до ледаря.цап! біжить перекидається.другий півник за нею.втекла,нічого за мною повернеться.він змайстрував пастку.чує крадеться,в раз і вона у клітці.питає: -де півник? за подвір*ям відпусти мене,а я заберуся звідсіля.побіг півник визволив ледаря й мовив: -ось бачиш ти на печі грівся із бідою стрівся.зрозумів все ледарь і став працьовитим.