#Ce programme calcule le pgcd de deux entiers


#!/usr/bin/perl -w

use strict;


my $a;

my $var;

my $b;

my $reste = "100000" ;

my $pgcd;

print "entrez deux entiers\n";

$a = <STDIN> ;

chomp($a);

$b = <STDIN> ;

chomp($b);


print "le PGCD de $a et $b est ";

if($a > $b)
{}
else
{
$var = $a; 
$a = $b; 
$b= $var;
}

while($reste != 0)
{ 
$reste = $a % $b ;

$a = $b;

$b = $reste;
}
#$pgcd renvoie le pgcd.
$pgcd = $a;


print " $pgcd\n";