{ Составить программу нахождения НОД и НОК двух чисел a и b. }

 uses crt;
 var a,b,p : real;
     nod,nok : real;
 begin
   clrscr;
   write('a=');readln(a);
   write('b=');readln(b);
   p:=a*b;
   while a<>b do
    if a>b then a:=a-b
           else b:=b-a;
   nod:=a;
   nok:=p/nod;
   writeln('НОД:',a);
   write('НОК:',nok);
   readln;
 end.