Генерация случайного числа в диапазоне и вычисление площади окружности с заданным радиусом — Pascal(Паскаль)/Python(Питон)

const
    k=40;
var
    r:integer;
    s:real;
begin    
    {инициализация генератора случайных чисел}
    randomize;
    {Формирование случайного числа в диапазоне от 1 до k}
    r:=random(k-1)+1;
    {Вычисление площади окружности радиуса r}
    s:=pi*sqr(r);
    writeln('Площадь окружности радиуса r=',r,' равна ',s:6:3);
end.

import random # Подключаем библиотеку генерации случайных чисел
import math   # Подключаем библиотеку содержащую константу pi
            
k=40                    # Задаем значение k
r=random.randint(1,k)   # Формирование случайного числа в диапазоне от 1 до k
s=math.pi*math.sqrt(r)             # Вычисление площади окружности радиуса r
print ('Площадь окружности радиуса r=',r,' равна ', "%.3f" % s)