PascalABC.NET
begin
var (week, month, year) := ReadInteger3('input Week, month, year:');
print(week * 7 + month * 30 + year * 360, 'Дней');
end.
