#!/usr/bin/perl

print "\nThis program calculate circle.\n\n";

print "Input radius: ";
$radius = <STDIN>;
print"\n";
chomp $radius;

$diametr = 2 * $radius;
$circum = 2 * 3.14159 * $radius;
$area = 3.14159 * $radius**2;

                                               # Печать результатов
print "The radius is $radius\n";
print "The diametr is $diametr\n";
print "The circumference is $circum\n";
print "The area is $area\n";