Определение площади круга, длины окружности и объема шара - Pascal ABC

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

Определение площади круга, длины окружности и объема шара с использованием в качестве радиуса суммы знаков трехзначного числа.

Решение задачи: «Определение площади круга, длины окружности и объема шара»

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

var
a,r:integer;
begin
repeat
writeln('Введите трехзначное число');
readln(a);
until (a > 99) and (a < 999);
r:=a mod 10 + a div 100 + (a div 10) mod 10;
write(r);
writeln('Площадь круга = ', Pi*r*r);
writeln('Длина окружности = ', 2*Pi*r);
writeln('Объём шара = ', 4/3*Pi*r*r*r);
end.

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

Создается переменная a типа integer для хранения введенного пользователем числа.
Создается переменная r типа integer для хранения результата вычисления радиуса круга.
В цикле repeat-until считывается трехзначное число от пользователя и сохраняется в переменной a.
Вычисляется значение радиуса круга по формуле r := a mod 10 + a div 100 + (a div 10) mod 10.
Выводится значение радиуса круга.
Вычисляется площадь круга по формуле Площадь круга = π * r * r, где π - это константа, равная 3.14159.
Выводится значение площади круга.
Вычисляется длина окружности по формуле Длина окружности = 2 * π * r.
Выводится значение длины окружности.
Вычисляется объем шара по формуле Объем шара = (4/3) * π * r * r * r.
Выводится значение объема шара.
Конец программы.