Определить, сколько будут стоить обои для всей стены если цена одного рулона к руб — Pascal(Паскаль)

uses crt;

var
  a, b, c, d, price, payment, 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.