Специализированным программным прикладным обеспечением называют программы, применяемые

Прикладная программа или приложение — программа, предназначенная для выполнения определённых задач и рассчитанная на непосредственное взаимодействие с пользователем. В большинстве операционных систем прикладные программы не могут обращаться к ресурсам компьютера напрямую, а взаимодействуют с оборудованием и другими программами посредством операционной системы. Также на простом языке — вс программы. К прикладному программному обеспечению относятся компьютерные программы, написанные для пользователей или самими пользователями для задания компьютеру конкретной работы. Программы обработки заказов или создания списков рассылки — пример прикладного программного обеспечения. Программистов, которые пишут прикладное программное обеспечение, называют прикладными программистами.

//Это можно стереть. Если в N есть 0 то тогда программа выведет NO.
program z1;
var b,c,d,i,s,l:integer;   
a:string;
begin
read(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;           
end           
else           
write('NO');if (l=0) and (c=b) then write('T');
if (l=0) and (c<>b) then write('P');
end.

//Это можно стереть. Если в N есть 0 то тогда программа выведет NO.
program z1;
var b,c,d,i,s,l:integer;   
a:string;
begin
read(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;           
end           
else           
write('NO');if (l=0) and (c=b) then write('T');
if (l=0) and (c<>b) then write('P');
end.