program oken;
uses crt;
var a,b: longint;
function kt(a,b: longint): boolean;
var i,test: longint;
begin
for i:=1 to b do
if (a mod i=0) then
if (b mod i=0) then
test:= i;
if (test=1) then
kt:= true
else
kt:= false;
end;
begin
clrscr;
write('Nhap so a: '); readln(a);
write('Nhap so b: '); readln(b);
writeln('Ket qua: ',kt(a,b));
readln;
end.