Matematické Fórum

Ahoj, napsal jsem program v pascalu využívající Eukliduv algoritmus, mohl by mi někdo prosím napsat jak vyřešit tento problém?: Mám dvě čísla a=0, b=6. Pak vychází NSD(největ. spol. dělitel)=6, NSN(nejmen. spol. nasobek)=0.
Problém ale nástává pokud zadám a=6, b=0. Potom to hází ERROR. Nemohl by mi někdo prosím pomoct.

Předem děkuju moc za pomoc.

Můj program:

program NSN_NSD;
uses crt;
var x,y:integer;

function nsd(a,b:integer):integer;             
  var
    zbytek:integer;

  begin
    repeat                                           
     zbytek:=a mod b;                               
     a:=b;
     if zbytek = 0 then break else b:=zbytek;
    until zbytek=0;

    nsd:=b;
  end;

function nsn(a,b:longint):longint;             
  begin
   nsn:=(a*b) div nsd(a,b);
  end;

begin
  clrscr;
  write('Zadejte cislo x: ');
  readln(x);

  write('Zadejte cislo y: ');
  readln(y);

  writeln;
  writeln('nejvetsi spolecny delitel : ', nsd(x,y));
  writeln('nejmensi spolecny nasobek : ', nsn(x,y));
end.