Контрольное задание №16-3 / 16-3 / zadanie_3

program Zadanie_3;
var
i,j,n,b: byte;
a: array [1..20] of integer;
res: boolean;
begin
writeln ('‚ўҐ¤ЁвҐ а §¬Ґа­®бвм ¬ ббЁў  N:');
readln (n);
res:=false;
for i:=1 to n do
begin
writeln ('‚ўҐ¤ЁвҐ a[',i,'] : ');
readln (a[i]);
end;
b:=2;
for j:=1 to n do
begin
for i:=b to n do
if a[j]=a[i] then res:=true;
b:=b+1;
end;
writeln ('ќ«Ґ¬Ґ­вл б ®¤Ё­ Є®ўл¬Ё §­ зҐ­Ёп¬Ё: ',res);
end.