Задача D Три числаДан массив из N целых чисел а 1, а 2, …

uses crt; var i,j,k,n,sum: integer; a: array[1… 100] of integer; flag: boolean; beginflag: =false; writeln ('Input N'); read (n); writeln ('Input elements'); for i: =1 to n doread (a[i]); for i: =1 to n dofor j: =1 to n dofor k: =1 to n doif (i<>j) and (j<>k) and (i<>k) thenif a[i]+a[j]+a[k]=0 thenbeginwriteln ('Yes'); flag: =true; halt; end; if flag=false thenwriteln ('No'); end.