Пользователь вводит количество недель, месяцев, лет и получает количество дней за это время. Считать что в месяце 30 дней.

                                         PascalABC.NET

begin

 var (week, month, year) := ReadInteger3('input Week, month, year:');

 print(week * 7 + month * 30 + year * 360, 'Дней');

end.