Дан массив из Nцелых чисел а 1, а 2, … , an. Проверить, есть ли в этом массиве три числа,…

uses crt; vari,j,k,n,sum: integer; a: array[1… 100] ofinteger; flag: boolean; beginflag: =false; writeln ('Input N'); read (n); writeln ('Inputelements'); 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]=0thenbeginwriteln ('Yes'); flag: =true; halt; end; if flag=false thenwriteln ('No'); end.