Решение задачи Begin 14

#include<iostream>
using namespace std;
int main(){
	double l,r,s, pi = 3.14;
	cout << "Vvedite dlinu okrujnosti: ";
	cin >> l;
	r = l/(2*pi);
	s = pi*r*r;
	cout << "Radius: " << r << endl;
	cout << "Ploshyad': " << s;
	return 0;
}

import random
import math

print("Пи:", math.pi)
L = random.randrange(1,100)
print("Длина окружности: ", L)
R = L / 2 / math.pi
S = math.pi * R**2
print("Радиус окружности: ", R)
print("Площадь круга: ", S)
									

program Begin14;
var
  L,R,S: Real;
begin
  Write('Введите длинну окружности: ');
  Readln(L);
  R:=L/(3.14*2);
  Writeln('Радиус круга равен: ',R);
  S:=3.14*sqr(R);
  Writeln('Площадь круга равна: ',S);
end.