Составить программу, которая в последовательности целых чисел находит…

programm p; var a: array[1… 100 ] of integer; i,n: integer; s: integer; beginreadln n; for i: =1 to n doreadln (a[i]); s: =0; for i: =1 to n dobeginif (a[i]>5) and (a[i]<81) and (a[i]/7=int a[i]/7) thens: =s+a[i]; if a[i]=0 then break; end; writeln (s); end.