Тест з інформатики, мова паскаль

Program project1;
uses
crt,math;
var  s:real;  i,j,f:real;  a:integer;
begin 
writeln('vvedite 1 chislo ');readln(i);
  writeln('vvedite 2 chislo ');readln(j); 
 writeln('vvedite 3 chislo ');readln(f); 
 s:=i; 
 if j<s then s:=j; 
 if f<s then s:=f; 
 if s<0 then 
 begin  
  if i<0 then inc(a);  
  if j<0 then inc(a);  
  if f<0 then inc(a);  
  writeln('kolichestvo otricatelnix ',a:2);
  end 
 else  
begin  
  if i>0 then i:=i*-1;
  if j>0 then j:=i*-1;
  if f>0 then f:=i*-1; 
 end; 
 writeln('min chislo ',s:2:0); 
 readln;
end.     

winter_list = [1,2,12]

spring_list = [3,4,5]

summer_list = [6,7,8]

Autumn_list = [9,10,11]

N = int(input())

def check(winter_list, spring_list, summer_list, Autumn_list):

if N in winter_list:

 time = 'winter'

elif N in spring_list:

 time = 'spring'

elif N in summer_list:

 time = 'Summer'

else:

 time = 'Autumn'

return time  

if N in range(12):

yeartme = check(winter_list, spring_list, summer_list, Autumn_list)

print(yeartme)

else:

print('NO')

end = input('enter smth to close program')  #Не обязательная строка. Просто не даёт закрыться консоли сразу после выполнения кода