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

Спасибо.

забыл про ввод readln(age) ;

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