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

#include<iostream>
#include<cmath>
using namespace std;
int main(){
	double r1,r2,s1,s2,s3,pi=3.14;
	cout << "Vvedite perv'iy radius: ";
	cin >> r1;
	cout << "Vvedite vtoroy radius: ";
	cin >> r2;
	s1 = pi*r1*r1;
	s2 = pi*r2*r2;
	s3 = abs(s1-s2);
	cout << "Ploshyad' pervogo kruga: " << s1 << endl;
	cout << "Ploshyad' vtorogo kruga: " << s2 << endl;
	cout << "Ploshyad' kol'ca: " << s3;
	return 0;
}

import random
import math

print("Пи:", math.pi)
R1 = random.randrange(2,10)
R2 = random.randrange(1,R1)
print("Радиус 1: ", R1)
print("Радиус 2: ", R2)
S1 = math.pi * R1**2
S2 = math.pi * R2**2
S3 = S1 - S2
print("Площадь круга 1: ", S1)
print("Площадь круга 2: ", S2)
print("Площадь кольца: ", S3)
									

program Begin13;
var
  R1,R2,S1,S2,S3: Real;
begin
  Write('Введите длину радиуса R1: ');
  Readln(R1);
  Write('Введите длину радиуса R2: ');
  Readln(R2);
  S1:=3.14*sqr(R1);
  Writeln('Площадь первого круга равна: ',S1);
  S2:=3.14*sqr(R2);
  Writeln('Площадь второго круга равна: ',S2);
  S3:=S1-S2;
  Writeln('Площадь кольца равна: ',S3);
end.