Высокий балл, первому лучший ответВ массиве содержатся целые числа. Посчитать…

Uses crt; var a: array[1… 100] of integer; i,n,k: integer; begin clrscr; write ('Кол-во элементов: '); readln (n); writeln ('Введи элементы: '); for i: =1 to n do begin write (i,' элемент='); readln (a[i]); end; writeln (#10,'Положительные элементы кратные 7: '); for i: =1 to n do if (a[i] mod 7=0) and (a[i]>0) then begin write (a[i]: 4); k: =k+a[i]; end; writeln (); writeln ('Сумма положительных элементов кратных 7: ',k); end. Надеюсь на «Лучший ответ"