Найти длину окружности L и площадь круга S заданного радиуса R: L = 2·π·R, S = π·R2. В качестве значения (программа Паскаль)

Question

Найти длину окружности L и площадь круга S заданного радиуса R:
L = 2·π·R,  S = π·R2.
В качестве значения π использовать 3.14.

Answer 1

const
pi = 3.14; { <-- Число "пи" }

var
R, L, S: real;

begin
write('R = ');
readln(R); { <-- Вводим радиус }
L := 2 * pi * R; { <-- Вычисляем длину окружности }
S := pi * sqr(R); { <-- Вычисляем площадь круга }
writeln('Результат:');
writeln(' L = ', L:0:2);
writeln(' S = ', S:0:2);
readln
end.