Написать программу для нахождения а) НОД, б) НОК двух натуральных чисел а,b.

Program gt1; var m,n,q,r,t: longint; beginread (m,n); t: =m*n; r: =1; while r<>0 dobeginq: =m div n; r: =m mod n; if (r<>0) then beginm: =n; n: =r; end; end; t: =t div n; write (n,',t); end.t-НОКn-получившиеся НОД