{Nahradte cyklus while cyklem repeat tak, aby program zustal funkcne ekvivalentni}

program pomaly_NSD;

var
   a, b : integer;
   nsd  : integer;

begin
   writeln('Vypocet nejvetsiho spolecneho delitele.');
   write('Zadejte 1. cislo ');
   readln(a);
   write('Zadejte 2. cislo ');
   readln(b);
   nsd := b;
   while (a mod nsd > 0) or (b mod nsd > 0) do
      nsd := nsd-1;
   writeln('Nejvetsi spolecny delitel je ', nsd);
   readln;
end.