NWD reszta z dzielenia

program NWD_reszta_z_dzielenia;
var
   a,b,c,d,e:Int64;
begin
  write('Podaj pierwsza liczbe: ');
  readln(a);
  write('Podaj druga liczbe: ');
  readln(b);
  c:=a;
  d:=b;
  Repeat
    e := c mod d;
    c:=d;
    d:=e;
  until d=0;
  Write('NWD to: ',c);
readln;
end.