Запросить у пользователя номер текущего дня в году (от 1 до 365), вывести на экран какой половине года этот день относится - к первой или ко второй.

паскаль

Складываем первые и вторые 6 месяцев. Получается 181 и 184 дня.

var day: integer;

begin

write ('Введите число: ') ;

read (day) ;

if (day>0) and (day<=181) then writeln ('В первом полугодии') ;

if (day>=182) and (day<=365) then writeln ('Во втором полугодии') ;

if (day365) then writeln ('Такого дня в году нет') ;

end.