Вычисление площади поверхности и объема правильной пирамиды - Turbo Pascal

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

Вычислить площадь поверхности и объем правильной пирамиды, в основании которой квадрат со стороной a и высотой h.

Решение задачи: «Вычисление площади поверхности и объема правильной пирамиды»

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

var a, h, s, v: real;
begin
  repeat
    write('a = ');
    readln(a)
  until a > 0;
  repeat
    write('h = ');
    readln(h)
  until h > 0;
  s := a * (a + 2 * sqrt(a * a / 4 + h * h));
  v := s * h / 3;
  write('S = ', s, ',  V = ', v);
  readln
end.

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

Создается переменная a типа real и инициализируется значением, которое читается с консоли.
Затем создается переменная h типа real и инициализируется значением, которое читается с консоли.
Далее создается переменная s типа real и инициализируется значением, которое вычисляется по формуле a * (a + 2 * sqrt(a * a / 4 + h * h)).
Затем создается переменная v типа real и инициализируется значением, которое вычисляется по формуле s * h / 3.
Выполняется запись в консоль значений переменных S и V с помощью функции write.
Выполняется чтение значения с консоли с помощью функции readln.