Можете запрограммировать вот эту часть блок-схемы? Информатика 9 класс, Паскаль
Пожалуйста, очень важно!!!

k := 0;

 for i := 1 to n - 1 do

   for j := i + 1 to n do

     if a[i] = a[j] then

       k := k + 1;

 if k = 0 then

   Writeln('нет')

 else

   Writeln('да')