{* Задача 5 *}

Unit PASZAD05;
Interface
Implementation
Begin
 writeln('Хозяин хочет оклеить обоями длинную стену в своем доме. Длина этой стены равна а и высота б. Рулон обоев имеет длину 12 м и ширину 1 м. Сколько будут стоить обои для всей стены если цена одного рулона к руб');
End.

Program paszad05;

Uses paszad05.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключение модулей *}
Var {* Объявление переменных *}
  a       : real;
  b       : real;
  c       : real;
  d       : real;
  price   : real;
  payment : real;
  k       : real;
Begin
  clrscr; {* Очистка экрана *}
  writeln('Введите параметры стены(высота)');
  readln(a);
  writeln('Введите параметры стены(ширина)');
  readln(b);
  writeln('Введите стоимость одного рулона обоев');
  readln(price);
  writeln('Введите длину рулона обоев)');
  readln(d);
  writeln('Введите ширину рулона обоев');
  readln(c);
  k := b / ((d / a) * c) + 1;
  payment := k * price;
  writeln('Обои для всей стены будут стоить ', payment : 7 : 2, ' руб.');
  writeln('Вам потребуется купить', k, ' рулонов');
End.