Определить давление пара на полную поверхность котла - Pascal

Формулировка задачи:

Цилиндрический титановый паровой котел толщиной стенок h имеет диаметр d и длину - L. Определить давление пара на полную поверхность котла,если на 1см^2 пар давит с силой в F н? Чему равен вес котла?

Решение задачи: «Определить давление пара на полную поверхность котла»

Листинг программы

const sw_titanium = 4505; {константа: удельный вес титана}
var h, d, L, f, p, w: real; {объявляем все нужные переменные}
begin
  write('h(m) = '); {печатаем, что и в чём вводить (в данном случае - толщину в метрах)}
  readln(h); {и вводим (эту самую толщину)}
  write('d(m) = '); {и ещё три раза аналогично; для диаметра...}
  readln(d);
  write('L(m) = '); {длины...}
  readln(L);
  write('F(N/cm^2) = '); {и удельного давления на см^2}
  readln(f);
  p := pi * (d - 2 * h) * ((d - 2 * h) / 2 + L) * 10000 * f; {считаем давление}
  w := (pi * d * d / 4 * L - pi * sqr(d - 2 * h) / 4 * (L - 2 * h)) * sw_titanium; {считаем вес}
  writeln('Pressure upon a full surface of the tank = ', p, ' newtons.'); {выводим результаты}
  writeln('Tank weight = ', w, ' kilograms.');
  readln {ожидание нажатия <Enter>, прежде чем закрыть программу}
end.

Объяснение кода листинга программы

const sw_titanium = 4505; {константа: удельный вес титана}
var h, d, L, f, p, w: real; {объявляем все нужные переменные}
begin
write('h(m) = '); {печатаем, что и в чём вводить (в данном случае - толщину в метрах)}
readln(h); {и вводим (эту самую толщину)}
write('d(m) = '); {и ещё три раза аналогично; для диаметра...}
readln(d);
write('L(m) = '); {длины...}
readln(L);
write('F(N/cm^2) = '); {и удельного давления на см^2}
readln(f);
p := pi (d - 2 h) ((d - 2 h) / 2 + L) 10000 f; {считаем давление}
w := (pi d d / 4 L - pi sqr(d - 2 h) / 4 (L - 2 h)) sw_titanium; {считаем вес}
writeln('Pressure upon a full surface of the tank = ', p, ' newtons.'); {выводим результаты}
writeln('Tank weight = ', w, ' kilograms.');
readln {ожидание нажатия , прежде чем закрыть программу}
end.