Вопрос, который вызвал трудности

ПОМОГИТЕ решить на Pascal. Зарание спасибо))
Хозяин хочет обклеить обоями длинную стену в своем доме. Длина этой стены =а м., а высота- b м. Рулон обоев имеет длину 12 м и ширину с м. Сколько будут стоить обои для всей стеныё если цена одного рулона k гривень?

Ответ экспертов Учись.Ru

Чтобы дать полноценный ответ, был привлечён специалист, который хорошо разбирается в теме «Информатика». Ваш вопрос звучал так:

ПОМОГИТЕ решить на 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.