pascal

[s4egol]

uses crt;
var
n,i,t,p:integer;
begin
readln(n);
for i:=2 to n do
begin
t:=i;
p:=1;
repeat
p:=p*(t mod 10);
t:=t div 10;
until t=0;
if (p<>0)and(i mod p=0) then write(i,' ');
end;
readln;
end.


эта программа выводит все числа от 2 до n цифры которых деляться на это число
нужно чтоб программа работала так же но только через функцию
помогите пожалуйста

[BDA]

Хм, программа делает не то, что написали Вы, или Вы так плохо сформулировали условие
Оформляйте код кнопкой #.

uses
  crt;

var
  n, i, p: integer;

function pr(a: integer): integer;
var
  b: integer;
begin
  b := 1;
  repeat
    b := b * (a mod 10);
    a := a div 10;
  until a = 0;
  pr := b;
end;

begin
  readln(n);
  for i := 2 to n do
  begin
    p := pr(i);
    if (p <> 0) and (i mod p = 0) then write(i, ' ');
  end;
  readln;
end.