program exe1;
  var
    flag,i,num,last:integer;
  begin
    writeln('insert num');
    readln(num);
    for i:=1 to 5 do
      begin
        last:=num;
        writeln('insert num');
        readln(num);
        if num mod last=0 then
          writeln('the num is ok')
        else
          writeln('the num is not ok');
      end;
  end.