program DetermineDayOfMonth;
uses
SysUtils, DateUtils;
var
m: Integer;
a,b: TDateTime;
c: Word;
begin
Write('Введите количество часов, прошедших с начала месяца: ');
ReadLn(m);
a := StartOfTheMonth(Now);
b := IncHour(a, m);
c:= DayOf(b);
WriteLn('Сегодняшнее число: ', c);
ReadLn;
end.
CnByb2dyYW0gRGV0ZXJtaW5lRGF5T2ZNb250aDsKCnVzZXMKICBTeXNVdGlscywgRGF0ZVV0aWxzOwoKdmFyCiAgbTogSW50ZWdlcjsKICBhLGI6IFREYXRlVGltZTsKICBjOiBXb3JkOwoKYmVnaW4KICBXcml0ZSgn0JLQstC10LTQuNGC0LUg0LrQvtC70LjRh9C10YHRgtCy0L4g0YfQsNGB0L7Qsiwg0L/RgNC+0YjQtdC00YjQuNGFINGBINC90LDRh9Cw0LvQsCDQvNC10YHRj9GG0LA6ICcpOwogIFJlYWRMbihtKTsKICBhIDo9IFN0YXJ0T2ZUaGVNb250aChOb3cpOwogIGIgOj0gSW5jSG91cihhLCBtKTsKCiBjOj0gRGF5T2YoYik7CgogIFdyaXRlTG4oJ9Ch0LXQs9C+0LTQvdGP0YjQvdC10LUg0YfQuNGB0LvQvjogJywgYyk7CgogIFJlYWRMbjsKZW5kLgo=