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.