Даны два натуральных числа…

program NandM; var n,m,r: integer; c,d: real; Begin writeln ('Enter n,m'); readln (n,m); r: =random (500); c: =n mod m; d: =m mod n; If (c=0) or (d=0) then writeln ('1') else writeln ('r'); readln; End.