Сосуды цилиндрической формы заполнены до краев жидкостью плотностью d=1200 кг/м3.
Составьте программу, которая вычисляет: а) давление столба жидкости на дно сосудов p=dgh(g=9.8м/с);
б) массу жидкости в каждом сосуде m=dV=dhS(S=3.14 R2

Можно как то без const и понятней пожалуйста

const - это неизменное число. Я ведь не буду объявлять как изменяемую переменную g - равная 9.8 (всегда - в задачах) и d (по условию), потому что программа МОЖЕТ случайно её зацепить и изменить.

1. program task31101745;
2. const
3.  d = 1200;
4.  g = 10;
5. var
6.  h, R: real;
7. begin
8.  Writeln('ВВЕДИТЕ ВЫСОТУ СТОЛБА ЖИДКОСТИ (h) И РАДИУС СТОЛБА (r): ');
9.  Readln(h, R);
10.  Writeln('ДАВЛЕНИЕ = ', d * g * h, ', МАССА ЖИДКОСТИ: ', d * h * Pi * Power(R, 2));
11. end.