{* Задача 37 *}

Unit ZADACH37;
Interface
Implementation
Begin
 writeln('Программа для вычисления стоимости покупки, состоящей из нескольких тетрадей и карандашей. ');
End.

Program Stoimost;

Uses zadach37.pas; {* Эту строку можно удалить *}
Var {* Необходимые переменные *}
  b : real;
  d : real;
  e : real;
  a : integer;
  c : integer;
Begin
  writeln('Введите количество тетрадей и нажмите ');
  readln(a);
  writeln('Введите цену одной тетради и нажмите ');
  readln(b);
  writeln('Введите количество карандашей и нажмите ');
  readln©;
  writeln('Введите цену одного карандаша и нажмите ');
  readln(d);
  e := a * b + c * d;
  Writeln('Общая стоимость = ', e : 5 : 2);
  writeln('Нажмите ');
  readln
End.