Un petit problem avec pascal

Déjà de un on est pas là pour faire tes devoirs, et de deux t'aurais pu chercher un peu, cette question a déjà été posée et résolue.

Voici une des nombreuses solutions :

program pgcd;
uses crt;
var a,b,x,y,r:integer;
begin
clrscr;
writeln('Entrez deux nombres entiers : ');
readln(a,b);
if a<0 then
x:=-a
else x:=a;
if b<0 then
y:=-b
else y:=b;
if y=0 then
writeln('Le PGCD de ',a,' et ',b,' est ',x)
else
repeat
r:=x mod y;
x:=y;
y:=r;
until r=0;
writeln(Le PGCD de ',a,' et ',b,' est ',x);
end;
readkey;
end;

Bien sûr tu peux obtimiser cette solution et la designer (rendre beau) a ton goût .
Allez bonne programmation...