Гарри Поттер узнал, в Хогвартсе номера комнат преподавателей делятся без остатка на все свои цифры, в остальных же комнатах

var b,c,d,i,s,l:integer; a:string;beginread(a);b:=length(a);s:=StrToInt(a);c:=0;for i:=1 to b do for i:=1 to b do begin d:=StrToInt(a[i]); if d=0 then l:=1; end;if l=0 then begin for i:=1 to b do for i:=1 to b do begin d:=StrToInt(a[i]); if (s mod d)=0 then c:=c+1; end; ИЛИVar c,n,k:integer;t:boolean;beginread(n);c:=n;t:=true;while (n0) and (t) do begin k:=n mod 10; if k0 then if c mod k0 then t:=false; n:=n div 10; end;if t=true then writeln(«T») else writeln(«P»);end.end else write(‘NO’);if (l=0) and (c=b) then write(‘T’);if (l=0) and (c<>b) then write(‘P’);end.