1.Вводится номер месяца. Надо определить к какому сезону относится этот месяц2.Написать программу, которая грамотно печатает фразу "У меня К друзей". К вводится с клавиатуры. Например, для К=1 должно напечататься " У меня 1 друг", для К=24 - "У меня 24 друга", для К=100 - "У меня 100 друзей".Решить в паскаль абс

1: 
program a1;
var i:integer;
begin
readln(i);
if i>2 then if i>5 then if i>8 then if i>11 then writeln(Зима) else writeln(Осень) else writeln(Лето) else writeln(Весна) else writeln(Зима);
end.
2:
program a2;
var k:integer;
begin 
readln(k);
if k mod 10 = 1 then 
writeln(У меня ,k, друг) else
begin
if (k mod 10 1)and(k div 10 1) then 
writeln(У меня ,k, друга)
else
writeln(У меня ,k, друзей);
end;
end.

//Вроде все продумал если нет, извиняйте