Решить на pascal. зарание )) хозяин хочет обклеить обоями длинную стену в своем доме. длина этой стены =а м., а высота- b м. рулон обоев имеет длину 12 м и ширину с м. сколько будут стоить обои для всей стеныё если цена одного рулона k гривень?

PascalABC.net (Ceil - округляет до целого в большую сторону)

var
  a,b,c,k,s:real;
  n:integer;
begin
write('Введите a,b,c,k: ');
readln(a,b,c,k);
n:=Ceil((a*b)/(12*c));
s:=n*k;
writeln(s,' гривен');
end.