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

#include <iostream>
#include <cmath>
using namespace std;
int main(){
	double s, d, l, r, pi = 3.14;
	cout << "Vvedite ploshyad' kruga: ";
	cin >> s;
	r = sqrt(s/pi);
	d = r*2;
	l = pi*d;
	cout << "Diametr: " << d << endl;
	cout << "Dlina okrujnosti: " << l;
	return 0;
}

import random
import math

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

program Begin15;
var
 S,D,L: Real;
begin
 Write('Введите площадь круга: ');
 Readln(S);
 D:=Sqrt(4*S/3.14);
 Writeln('Диаметр круга равен: ',D);
 L:=3.14*D;
 Writeln('Длина круга равна: ',L);
end.