Question

ОЧЕНЬ СРОЧНО!!!!!!!!!!!!!!!!!!!!!!
На вход подаются два числа – a и b. Вывести на экран все числа между ними, которые делятся на 7 или оканчиваются на 3. В ПАСКАЛЕ

Answer 1

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.