Дано натуральное число n. Выяснить входит ли цифра 3 в запись числа n (в квадрате). «решать через repeat until» — Pascal(Паскаль)

var n, m, i, j : longint;
    st : string;
begin
  readln(n);
  m := n * n;
  str(m, st);
  repeat
    inc(i);
    if st[i] = '3' then break;
  until i = length(st);
  if st[i] = '3' then writeln('Yes')
    else writeln('No');
end.