{* Расчет цены за карандаши *}

Unit LIN_3;
Interface
Implementation
Begin
 writeln('Расчет цены за карандаши');
End.

Program lin_3;

Uses lin_3.pas; {* Эту строку можно удалить *}
Uses crt; {* Вызов внешних функций *}
Var {* Необходимые переменные *}
  a : real;
  b : real;
  c : real;
  d : real;
  x : real;
Begin
  writeln('Vvedite kol - vo tetradei i cenu');
  readln(a, b);
  writeln('Vvedite kol - vo karandachei i cenu');
  readln(c, d);
  x := a * b + c * d;
  writeln('Cena = ', x : 5 : 2);
  readkey; {* Ждем нажатия любой клавиши *}
End.