Example: doIt (Cont.)
  ‘b’,’B’: writeln(‘gcd, lcm
=‘, gcd(A, B), ‘,’, lcm(A,
B));
otherwise
     writeln(‘Unknown
choice’);
  end
end;