var a,b:integer;beginreadln(a,b);if a mod b = 0 then writeln('a - делитель b');if b mod a = 0 then writeln('b - делитель a');end.
var a,b:integer;
begin
readln(a,b);
if a mod b = 0 then writeln('a - делитель b');
if b mod a = 0 then writeln('b - делитель a');
end.