Условие задачи
Напишите программу, которая вводит натуральные числа а и b и выводит на экран все натуральные числа на отрезке [a,b], делящиеся на каждую из своих цифр.
Ответ
program pr;
var a,b,i,x,c::integer; p:boolean;
begin
writeln('Введите два натуральных числа');
readln(a,b);
for i:=a to ...