Сквлавиатуры вводится целое число n. найти наименьшое целое число большее n; такое, что оно делится нацело на 27 и не делится на 2 и на 5 pascal help

Var
    n: integer;

begin
    readln(n);
    repeat
        n := n + 1;
    until (n mod 27 = 0) and (n mod 2 <> 0) and (n mod 5 <> 0);
    writeln(n);
end.