{* Задача 484 *}

Unit ZADACH484;
Interface
Implementation
Begin
 writeln('Составить программу для вычисления массы стальной заго- товки в форме параллелепипеда при помощи процедуры. ');
End.

Program zadach484;

Uses zadach484.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключение модулей *}
Const {* Константы *}
  g = 0.0078;
Var {* В работе нам потребуются переменные: *}
  a                 : real;
  b                 : real;
  c                 : real;
  m                 : real;
  i                 : integer;
  n                 : integer;
Procedure massa(x : real;
y                 : real;
z                 : real;
Var {* Объявление переменных *}
  mas : real);
Begin
  mas := g * x*y * z/1000;
End;
Begin
  clrscr; {* Очищаем экран *}
  write(‘введите кол - во расчетов’);
  readln(n);
  For i := 1 To n Do {* Увеличиваем i от 1 до n с шагом 1 *}
  Begin
    writeln(‘расчет - ’, i);
    writeln; {* Вывод пустой строки *}
    write(‘введите длину заготовки в мм : ’);
    readln(а);
    write(‘введите ширину заготовки в мм : ’);
    readln(в);
    write(‘введите высоту заготовки в мм : ’);
    readln(с);
    massa(a, b, c, m);
    writeln(‘масса равна’, m : 3:3, ‘кг’);
  End;
  readkey
End.