var
x: Integer;
y: Real;
begin
Write ('Введите количество сигарет, выкуриваемых в день: ');
ReadLn (x);
y := 365 * x * (3.6 / 20); // количество дней в году принято 365, может быть правильнее 365.25
// 3.6 / 20 - это расчет количества смолы в одной сигарете.
WriteLn ('Количество смолы за год = ', y:10:2, ' гр.');
end.