informatyki i systemów mikroprocesorowych

program NWW;
uses crt;
var a,b,d:longint;
     begin
         clrscr;
         writeln(' Program obliczajacy NWW ');
         writeln;
         write('wprowadz a:');
         readln(a);
         writeln;
         write('wrowadz b:');
         readln(b);
         writeln;
         d:=1;
         while d*a mod b<>0 do d:=d+1;
         write('NWW liczb(',a,',',b,') wynosi = ',d*a);
         writeln;
         writeln('Nacisnij dowolny klawisz, by zakonczyc');
         repeat until keypressed;
     end.