program DrillingSpeedAndProductivity;

var
p, w, d, Tc, Tn, Tp, Tl, tb, V, Q: Real;

begin
Write${}^{\prime }Введитезначениеплотностипороды(p){:}^{\prime }$;
Readln$p$;

Write${}^{\prime }Введитезначениевесовогочислабуровогоинструмента(w){:}^{\prime }$;
Readln$w$;

Write${}^{\prime }Введитезначениедиаметраскважины(d){:}^{\prime }$;
Readln$d$;

Write${}^{\prime }Введитезначениевременициркуляции(Tc){:}^{\prime }$;
Readln$Tc$;

Write${}^{\prime }Введитезначениевременинагнетания(Tn){:}^{\prime }$;
Readln$Tn$;

Write${}^{\prime }Введитезначениевремениподъемаинструмента(Tp){:}^{\prime }$;
Readln$Tp$;

Write${}^{\prime }Введитезначениевременилачуги(Tl){:}^{\prime }$;
Readln$Tl$;

Write${}^{\prime }Введитетолщинускелетапородысверхунавыходеинструмента(tb){:}^{\prime }$;
Readln$tb$;

V := 3.5 p w / $Pi<em>d</em>d$;
Q := $Tc-Tn-Tp-Tl$ / $60/V+tb$;

writeln${}^{\prime }Техническаяскоростьбурения{:}^{\prime },V:0:2$;
writeln${}^{\prime }Производительностьстанка{:}^{\prime },Q:0:2$;
end.

// Пример входных данных:
// p = 2.5
// w = 450
// d = 0.3
// Tc = 32.5
// Tn = 3.2
// Tp = 1.5
// Tl = 1.8
// tb = 0.2

// Результат:
// Техническая скорость бурения: 302.03
// Производительность станка: 5.18