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

Предыдущий
вопрос Следующий
вопрос

program Circle;
var
R, L, S: real;
begin
R := 5; // заданный радиус

L := 2 3.14 R;
S := 3.14 R R;

writeln('Длина окружности L = ', L);
writeln('Площадь круга S = ', S);
end.