Var s: integer;
begin
readln(s);
if (s=12) or (s=1) or (s=2) then writeln('зима')
else
if (s=3) or (s=4) or (s=5) then writeln('весна)
else
(s=6) or (s=7) or (s=8) then writeln('лето')
else
writeln('осень');
end;
В одном каталоге не может быть двух папок или двух файлов с одинаковыми именами. В данном случае в папке USERS есть две папки PETER, чего быть не может.
327680 - информационный вес в битах/10240(20*64*8)=32