Program stena;
Var a, b, k, c, s: real;
Begin
Writeln(' введите длину стены a');
Readln(a);
Writeln(' введите высату стены b');
Readln (b);
Writeln(' введите ширину обоев k');
Readln (k);
Writeln (' введите цену рулона c');
Readln (c);
s:=(a*b)/(b*12)*K;
Write('всего надо заплатить=',s);
End.