program forty;
var a,b,c,k:integer;
begin
write('a=');
read(a);
write('b=');
read(b);
write('c=');
read(c);
write('k=');
read(k);
if a mod k=0 then writeln('k является делителем числа а');
if b mod k=0 then writeln('k является делителем числа b');
if c mod k=0 then writeln('k является делителем числа c');
end.