{* Задача 481 *}

Unit ZADACH481;
Interface
Implementation
Begin
 writeln('Предприятие выпускает металлопрокат из четырех различных материалов с плотностью 7,0; 7,2; 7,4; 7,6 г/см3 диаметром 10, 20, 30 и 40 мм. Со- ставить программу для расчета массы погонного метра каждого вида проката.');
End.

Program zadach481;

Uses zadach481.pas; {* Эту строку можно удалить *}
Uses crt; {* Вызов внешних функций *}
Var {* В работе нам потребуются переменные: *}
  dn : real;
  hd : real;
  pn : real;
  hp : real;
  vn : real;
  m  : real;
Begin
  clrscr; {* Стираем всё с экрана *}
  write(‘введите шаг изменения плотности нр : ’);
  readln(нр);
  write(‘введите шаг изменения диаметра проката hd : ’);
  readln(нd);
  write(‘введите минимальное (начальное) значение’);
  write(‘плотности pn : ’);
  readln(pn);
  write(‘введите минимальное (начальное) значение’);
  write(‘диаметра проката dn : ’);
  readln(dn);
  Repeat  Repeat vn := pi * dn * dn / 4;
    m := pn * vn;
  writeln(‘при pn = ’, pn : 4:2, ‘  dn = ’, dn : 4:2, ‘  m = ’, m : 4:2);
  dn := dn + hd;
  Until (dn > 40);
  pn := pn + hp;
  readln; {* Ждем нажатия Enter *}
  Until (pn > 7.6);
  readkey; {* Ждем нажатия пользователя *}
End.