#!/usr/bin/perl -w
use strict ;

my $tria ;
my $epan ;
my $unif ;

while ( <STDIN> ) {
   my @line= split  ;
   my $point = $line[0] ;
   $tria = 1-abs($point) ;
#abs($point)<=1 ? $tria = 1-abs($point) : $tria = 0 ;
   $epan = .75*(1-$point*$point) ;
#abs($point)<=1 ? $epan = .75*(1-$point*$point) : $epan = 0 ;
   $unif = .5 ;
#abs($point)<=1 ? $unif = .5 : $unif = 0 ;
   print "$point $tria $epan $unif\n" ;
}