{* Задача 478 *}

Unit ZADACH478;
Interface
Implementation
Begin
 writeln('Вычислить массу стальной заготовки длиной А, шириной В и высотой Н.');
End.

Program zadach478;

Uses zadach478.pas; {* Эту строку можно удалить *}
Uses CRT; {* Вызов внешних функций *}
Const {* Константы *}
  G = 7800;
Var {* В работе нам потребуются переменные: *}
  MAS :  REAL;
  A   :  REAL;
  B   :  REAL;
  H   :  REAL;
Begin
  CLRSCR; {* Очищаем экран *}
  WRITE (' ВВЕДИТЕ ДЛИНУ ЗАГОТОВКИ В MM : ');
  READLN(A);
  WRITE (‘ ВВЕДИТЕ ШИРИНУ ЗАГОТОВКИ В ММ : ');
  READLN (В);
  WRITE (‘ ВВЕДИТЕ ВЫСОТУ ЗАГОТОВКИ В ММ : ');
  READLN (Н);
  MAS := G * A*B * H/1000;
  WRITELN (' МАССА ЗАГОТОВКИ РАВНА ‘, MAS:4:2, ' КГ ');
  READKEY; {* Ждем нажатия пользователя *}
End.