Вывести на экран таблицу объёмов шара - Pascal ABC

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

Вывести на экран таблицу объёмов шара, если радиусы изменяются в диапазоне от 5 до 8 с шагом 0,5. Ниже представлен рекомендуемый вид экрана во время работы программы: --------------------- Радиус......Объём --------------------- ..5...........523.599 ..5.5........696.910 ..6...........904.779 ..6.5.......1150.347 ..7.........1436.755 ..7.5.......1767.146 ..8..........2144.661 ---------------------

Решение задачи: «Вывести на экран таблицу объёмов шара»

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

var r,v:real;
begin
writeln('------------------');
writeln('|Радиус|  Объем  |');
writeln('------------------');
r:=5;
while r<=8 do
 begin
  v:=4*pi*r*r*r/3;
  writeln('|',r:5:1,' |',v:8:3,' |');
  r:=r+0.5;
 end;
writeln('------------------');
end.

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

В начале кода объявляются две переменные: r и v, которые имеют тип real.
Затем выводится на экран таблица объёмов шара.
Выводится заголовок таблицы в формате ------------------.
Далее идет цикл while, который выполняется, пока значение переменной r не станет больше или равно 8.
Внутри цикла переменная v вычисляется как объем шара по формуле v=4pirrr/3.
Затем выводится на экран строка, содержащая значения радиуса и объема шара, разделенные символом |.
После этого значение переменной r увеличивается на 0.5.
Цикл while повторяется, пока значение переменной r не станет больше или равно 8.
По завершении цикла выводится на экран заключительная строка ------------------.
Конец программы.