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 < 5) and (k mod 10 > 1)and(k div 10 <>1) then 
writeln('У меня ',k,' друга')
else
writeln('У меня ',k,' друзей');
end;
end.

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