#!/usr/bin/perl

use 5.040.3;

print "Precio momento t = 1 > ";
chomp( my $p1 = <STDIN> );
print "Precio momento t = 2 > ";
chomp( my $p2 = <STDIN> );
print "Cantidad vendida en t = 1 > ";
chomp( my $q1 = <STDIN> );
print "Cantidad vendida en t = 2 > ";
chomp( my $q2 = <STDIN> );

say "Variación de cantidades = ", 100 * ($q2-$q1)/$q1, " %";
say "Variación en precios = ", 100 * ($p2 - $p1) / $p1, " %";
say "";
say "La elasticidad-precio es de = ", (($q2-$q1)/$q1) / (($p2-$p1)/$p1), " adimensional (1 = máximo ingreso)";


exit 2;