Відокремлені уточнювальні члени речення допоміжні слова при відокремлених уточнювальних членах речення (виписати 6 прикладів таких слів) !

Ответ: 648. нот код решения этой на паскале! uses crt; var a,b,c,d, i, n : integer; beginclrscr; n: =0;     for i: = 100 to 1000 do    begin        a: = i div 100;         b: = i div 10;         b: = b mod 10;         c: = i mod 10;         if (a = b) or (b = c) or (a = c)        then        else        begin        n: = n + 1;     end;     end;           writeln (n); end.

Var   a: array [1..10] of integer;   i, d, c: integer;   begind: =0; c: =0; for i: =1 to 10 do   begin       a[i]: = random(11);       writeln('a[', i,']= ', a[i]);   end;   for i: = 2 to 10 do       begin           if (a[i]< a[i-1]) and (a[i]< d) then d: =a[i];           if (a[i] > a[i-1]) and (a[i] > c) then c: =a[i]       end;   writeln('наибольший элемент массива = ', c); writeln('наименьший элемент массива = ', d); end.