Написать программу в Паскале Найти все натуральные числа, не превосходящие заданного n, которые делятся на каждую из

program divide_;var i, f, k, n, m: integer;beginwriteln(\'Введите число\');readln(n); //n - предельное числоfor i:= 1 to n do beginf:= 1;m:= i; // копия очередного числаwhile m <> 0 dobegink:= m mod 10;if (k = 0) or (i mod k > 0) then f:= 0; // Если очередная цифра равно нулю // или если число не делится на цифру числа, тогда флаг f=0 m:= m div 10;end;if f = 1 then writeln(i);endend.