••• ••• дано натуральное число n (n меньше или равно 9999). выяснить, верно ли, что это число содержит ровно три одинаковые цифры с учетом четырех цифр, как, например, числа 3363, 4844, 0300 и т.п. ( если не трудно, напишите решение, 9 класс )

Не уверен, что в 9 классе проходят массивы, уточни потом, переделаю, если что.

Program G;
Uses Crt;
Var NumS: Array [1..10] of byte;
    n: integer; count, i, k, equal, truth: byte;
Begin
 ClrScr;
 Truth:=0;
 Writeln('Введите число N (меньше или равное 9999).');
 Repeat
  Readln(N);
  If N>9999 then Writeln('Введено неверное число. Повторите ввод.');
 Until N<=9999; Count:=0;
 While N>0 do
  Begin
   Inc(Count);
   NumS[Count]:=N mod 10;
   N:=N div 10;
  End;
 For i:=1 to Count do
  Begin
   Equal:=0;
    For k:=i+1 to Count do
    If NumS[i]=NumS[k] then
     Inc(Equal);
   If Equal=2 then Truth:=1;
  End;
 If Truth=1 then Writeln('В числе совпадает три разряда.')
   Else Writeln('В числе совпадает менее/более трёх разрядов.');
 Readln;
End.