Решение задачи Proc 18

#include <stdio.h>

float circles(float r){
   return 3.14*r*r;
}
 
int main(void)
{
    int i;
    for(i=1; i<=3; ++i){
        float r;
        printf("R:");
        scanf("%f", &r);
        printf("S:%f\n",circles(r));
    }
    return 0;
}

import random
import math

def CircleS(R):
    return math.pi * R**2

L = sorted(random.sample(range(1, 10), 3))
for i in range(0,3):
    print("R_{0} = {1}. Площадь круга: {2}".format(i+1, L[i], CircleS(L[i])))
									

program Proc18;
 
function CircleS(R: Real): Real;
begin
 CircleS:=3.14*sqr(R);
end;
 
var
  r1,r2,r3: real;
begin
  Write('Введите радиус первой окружности: ');
  Readln (r1);
  Write('Площадь первой окружности равна: ');
  Writeln(CircleS(r1));
 
  Write('Введите радиус второй окружности: ');
  Readln (r2);
  Write('Площадь второй окружности равна: ');
  Writeln(CircleS(r2));
 
  Write('Введите радиус третьей окружности: ');
  Readln (r3);
  Write('Площадь третьей окружности равна: ');
  Writeln(CircleS(r3));
  Readln;
end.