uses crt;
{$R-}{otklyuchim proverku na diapazon}
type
TTmas=array[1..1] of real;{tip elementov}
Tmas=^TTmas;{ssylka}
var
a:Tmas;
n,i,j:integer;
b:boolean;
 
begin
clrscr;
writeln ('Razmer massiva n=');
readln (n);      {schityvaem razmer massiva}
getmem(a,sizeof(TTmas)*n);{vydelim pamyati pod nash massiv}
writeln('Vvedite ',n,' elementov massiva:');
for i:=1 to n do
 begin
 write ('el[',i,']=');
 readln (a^[i]);         {schityvaem sami elementy massiva}
 end;
 
clrscr;
writeln ('Ishodnyi massiv:');
for i:=1 to n do
write(a^[i]:0:2,' ');  {vyvodim ishodnyi massiv na ekran}
writeln;
 
b:=false; {oznachaet chto povtoryayuschihsya NET}
for i:=1 to n do  {pervyi prohod po massivu}
 for j:=1 to n do  {vtoroi-vlozhennyi prohod po massivu}
  if (i<>j) and (a^[i]=a^[j]) then b:=true; {povtoryayuschiesya EST'}
 
if b then writeln('Sovpadaiuschie ESTI') {vyvod rezul'tata}
     else writeln('Sovpadaiuschix NET');
 
 
 
freemem(a,sizeof(TTmas)*n);{osvobodim pamyat'}
{$R+}{vklyuchim range error}
readln
end.