program_radius.PAS

{* Вычисления длины площади и объема круга *}

Unit PROGRAM_RADIUS;
Interface
Implementation
Begin
 writeln('

Задание

Вычистить длину круга, площадь круга и объем слоя одной и того же заданного радиуса.

Выбор алгоритма решения задачи

В данном задании нужно ввести радиус. И вычислить длину, площадь и объем.

Описание решения задачи

Для решения данного задания введем три переменные: v, l, s. Тогда формулы можно записать так: v:= (4*pi*(R*r*r)) /3; l:= 2*pi*r; s:= pi*(R*r);

Схема алгоритма решения задачи

');
End.

Program Radius;

Uses program_radius.pas; {* Эту строку можно удалить *}
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.