Question

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

Спасибо.

Answer 1

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;

Answer 2

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