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

program Zadanie_3;
var
i,j,n,k: byte;
a: array [1..20] of integer;
Z: boolean;
begin
write ('‚ўҐ¤ЁвҐ ¤«Ё­г ¬ ббЁў , ­Ґ Ў®«ҐҐ 20:');
readln (n);
Z:=false;
for i:=1 to n do
begin
write ('‚ўҐ¤ЁвҐ a[',i,'] : ');
readln (a[i]);
end;
k:=2;
for j:=1 to n do
begin
for i:=k to n do
if a[j]=a[i] then Z:=true;
k:=k+1;
end;
writeln ('Ќ «ЁзЁҐ ®¤Ё­ Є®ўле н«Ґ¬Ґ­в®ў: ',Z);
readln;
end.