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

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