ребят, помогите!написать программку:Являетсяли сумма цифр заданного 7-значного числа, стоящих

var
  s, x, n: integer;
begin
  writeln('Введите число: ');
  read(n);
  x := 1000000;
  repeat
    s := s + (n div x) mod 10;
    x := trunc(x / 10);
  until x lt; 1;
  writeln('Сумма = ', s);
  if s lt;gt; 0 then
  begin
    if s mod 2 = 0 then writeln('Сумма - число четное')
    else writeln('Сумма - число нечетное');
    if s mod 7 = 0 then writeln('Сумма - число кратное 7')
    else writeln('Сумма - число не кратное 7');
  end;
end.

PascalABC

var
i,k,b:integer;
a:array[1..7] of integer;
begin
for i:=1 to 7 do
read(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) then
writeln('Это число четное или кратно 7')
else writeln('Это число не четное и не кратно 7);
end.