Дербез компьютерлик компоненттердин техникалык сипаттамаларын аныктайтын программа​

1.Фи́шинг — вид интернет-мошенничества, целью которого является получение доступа к конфиденциальным данным пользователей — логинам и паролям.

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

3.Интернет тролли, конечно же, также встречаются. За этой аббревиатурой стоят конкретные люди, ведь троллем, который вас достаёт, например в какой нибудь социальной сети, вполне может оказаться и ваш сосед)) да кто угодно!В данный период времени Интернет троллингом могут заниматься как люди, так и специально разработанные программы работающие автономно, которые с вами могут поддерживать диалог, отвечая на ваши сообщения.

4.Интернет-травля, или кибертравля, — намеренные оскорбления, угрозы, диффамации и сообщение другим компрометирующих данных с современных средств коммуникации, как правило, в течение продолжительного периода времени

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

Var x,y,z,f:integer;
begin
write('Введите число: ');
readln(x);
while x>0 do
   begin
   y:=x mod 10;
   z:=x div 10;
      while z>0 do
         begin
         if (z mod 10)=y then f:=1;
         z:=z div 10;
         end;
   x:=x div 10;
   end;
if f=1 then writeln('Верно, есть одинаковые цифры')
   else writeln('Нет одинаковых цифр')
end.

Если использовать строковые ф-ии, то программа будет проще:
var
  i,k,f:integer;
  s,t:string;
begin
write('Введите число: ');
readln(s);
k:=length(s);
for i:= 1 to k do
  begin
  t:=copy(s,i+1,k-i+1);
  if pos(s[i],t)>=1 then f:=1;
  end;
if f=1 then writeln('Верно, есть одинаковые цифры')
  else writeln('Нет одинаковых цифр')
end.