Помогите..................

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.