#! /usr/bin/perl 
$pi = 3.141592654;

print "Eingabe von s: \n"
chomp($s = <STDIN>);

print "Eingabe von r1:    \n";
chomp($r1 = <STDIN>);

print "Eingabe von r2:    \n";
chomp($r2 = <STDIN>);

$m = $pi/3 * $s * ($r1 + $r2);

print "Ergebniss $m \n";