program grindys;

   var ilgis, plotis, kaina : integer;

       suma : real;

begin

  WriteLn('Ilgis');

  read(ilgis);

  WriteLn('Plotis');

  read(plotis);

  WriteLn('Kaina kv.m');

  read(kaina);

  suma := (ilgis*plotis+ilgis*plotis*0.05)*kaina;

  writeln('Jums kambari isklijuoti kainuos ', suma:4:2, ' litus');

  Readln;

  Readln;

  Readln;

end.