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

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

import math
import random

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

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