На вход два числа – a и b. вывести на экран все числа между ними, которые делятся на 7 или оканчиваются на 3. в паскале

Var a,b,i:integer;
begin;
  readln(a,b);
  for i:=a to b do
    if (i mod 10 = 3) or (i mod 7 = 0) then writeln(i);
end.