Блок-схема по коду Pascal

[Sergikы]

Блок-схема по коду Pascal

Привет всем!
Если кто может пожалуйста нарисуйте блок схему по моему коду

const nmax=100;
var a:array[1..nmax] of integer;
n,i,j:byte;
f,k:boolean;
begin
randomize;
repeat
write('Размер последовательности A до ',nmax,'n=');
readln(n);
until n in [1..nmax];
writeln('Последовательнось:');
for i:=1 to n do
 read(a[i]);
for i:=1 to n do
 write(a[i]:3);
readln;
writeln;
writeln;
writeln('Входят по одному разу:');
k:=false;
for i:=1 to n do
 begin
  f:=true;
  for j:=1 to n do
  if(a[i]=a[j])and(i<>j) then f:=false;
  if f then
   begin
    write(a[i]:3);
    k:=true;
   end;
  end;
if not k then write('Таких чисел нет');
readln;
end.

Буду очень благодарен.

 

[Sergikы]

Вот что я смог сделать через программу.

 

[Sergikы]

Добавлю условия задачи
Дана последовательность целых чисел a1, a2, ..., am . Постройте на ее основе новую
последовательность, содержащую только те числа, которые в исходную
последоватеьность входят по одному разу.
может поможет

 

[Екатерина Only]

:tehnari_ru_837:помогите пожалуйста с блок-схемой
program xz;
const
x:array[1..10] of integer=(1,2,3,4,5,6,7,8,9,10);
y:array[1..15] of integer=(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15);
var
i:integer;
s1,s2:real;
BEGIN
s1:=0; s2:=0;
for i:=1 to 10 do s1:=s1+sqr(sin(x));
for i:=1 to 15 do s2:=s2+sqr(ln(abs(y)));
writeln(s1*s2)
END.

 

[Léon1]

помогите пожалуйста с блок-схемой

Блок-схема: