Как направлены вектор напряжённости электрического поля и вектор магнитной индукции друг относительно друга

Var
c,n,k:int64;
t:boolean;
begin
 read(n);
 c:=n;
 t:=true;

 while (n<>0) and (t) do 
  begin k:=n mod 10; if k<>0 then  
   if c mod k<>0 then t:=false; 
  n:=n div 10; 
  end;
 if t=true then writeln('T') else writeln('P');
end.