Человеку сегодня исполнилось r лет.сколько ему дней, часов, минут, секунд (високосные годы не учитывать).

Program test ;
Var
age:integer;
Begin
Writeln('Вы прожили уже ',age*365,' дней);
Writeln(age*365*24,' часа');
Writeln(age*365*24*60,' минут');
Writeln(age*365*24*60*60,' секунд');
End;