дана последовательность из N чисел.определить сумму трех наибольших чисел

beginn1:=a[1]; n2:=n1; n3:=n2;for i:=2 to n doif (a[i]>n1) then beginn3:=n2; n2:=n1; n1:=a[i]end;writeln(n1+n2+n3)end.