Найдите первое число которое кратное 7, не кратное 3, и на конце 3

//ответ: 133.
//PascalABC.NET

var
  i: integer;
begin
  i := 0;
  while(true) do
  begin
    if((i mod 7 = 0) and (i mod 3 <> 0) and (i mod 10 = 3)) then break;
    i := i + 1;
  end;
  write(i);
end.