Задание 6 модуль 3

program Radius;
var
r: real;
l: real;
v: real;
s: real;
begin
write('Vvedite radius: ');
readln(r);
v:= (4*pi*(R*R*R))/3;
l:= 2*pi*R;
s:= pi*(R*R);
writeln('Obyom shara: ',v);
writeln('Dlina okruzhnosti: ',l);
writeln('Ploshad kruga: ',s);
end.


Заголовок программы. Программа с названием Радиус. Описание раздела переменных. Переменные вещественного типа.
Начало программы
Вводим радиус
Вывод на экран r
Оператор присваивания. Формула вычисления объема шара. Формула вычисления площади круга. Формула вычисления длины окружности.
Вывод на экран v
Вывод на экран l
Вывод на экран s
Конец программы