ребят, помогите!
написать программу:

Является ли сумма цифр заданного 7-значного числа, стоящих в разрядах десятков тысяч, сотен и единиц  (1 234 567) числом четным или кратным 7?

 

PascalABCvari,k,b:integer;a:array[1..7] of integer;beginfor i:=1 to 7 doread(a[i]);b:=a[1]+a[2]+a[3]+a[4]+a[5]+a[6]+a[7];if (b mod 2 = 0) or (b mod 7 = 0) thenwriteln('Это число четное либо кратно 7')else writeln('Это число не четное и не кратно 7);end.