nwd nww

 program funkcja;
 uses crt;
 var
 a,b,p: integer;
 nww:real;

 begin
  writeln('podaj a');
  readln(a);
  writeln('podaj droga liczbe');
  readln(b) ;
  nww:=a*b;
  while b<>0  do begin
  p:=a mod b ;
  a:=b      ;
  b:=p      end;

  nww:=nww/a;
  writeln('nwd =',a)  ;
  writeln('nww=',nww);
   repeat until keypressed;
  end.