{* Расчет общей цены покупок *}

Unit LIN_4;
Interface
Implementation
Begin
 writeln('Расчет общей цены покупок');
End.

Program lin_4;

Uses lin_4.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключаем внешние файлы *}
Var {* В работе нам потребуются переменные: *}
  x : real;
  y : real;
Begin
  writeln('Vvedite cenu 1 kg iablok i kol - vo iablok');
  readln(x, y);
  writeln('Obchaia cena = ', x * y : 5 : 2);
  readkey; {* Ждем нажатия любой клавиши *}
End.