Есть программа помогите составить пожалуйста блок схему если не трудно
задание : среди элементов массива х найти числа встречающиеся более 2 раз и вывести сам массив формула элементов :х=i^3-6i^2+11i-6 (i=1,2,3,,,,10)
program ;
var x: array [1..10] of real;
i,j,r:integer;
a:real;
begin
Writeln('массив X:');
For i:=1 to 9 do
begin
x:=i*i*i-6*sqr(i)+11*i-6;
write(x:3:3, ' ');
if i mod 5 = 0 then
writeln;
end;
Writeln;
Writeln('повторяющиеся числа');
For i:=1 to 10 do
begin
a:=x;
x:=-999999;
r:=0;
For j:=1 to 10 do
begin
if (x[j]=a) and (j<>i) and (x[j]<>-999999) then
r:=r+1;
x[j]:=-999999;
end;
if r>=2 then
Write(a:3:3, ' ');
end;
end.