Var x: integer;
Begin
Writeln ('введите номер текущего дня в году');
Readln(x);
If x<181 then writeln('1 половина года')
Else writeln('2 половина года');
End.
Var x: integer;
Begin
Writeln ('введите номер текущего дня в году');
Readln(x);
If x<181 then writeln('1 половина года')
Else writeln('2 половина года');
End.