Помогите. Pascal abc
Написать программу, которая находит сумму целых чисел ,которые больше 100, меньшее 200, кратны 7 и заканчиваются на 1 или 4

далее, в if  скобку пропустил, вместо 10 в условии (div 10) напиши div 100

var sum, i : integer; begin    for i := 100 to 200 do       if (i mod 7 = 0) and ((i div 100 = 4) or (i div 100 = 1)) then          sum := sum + i;    writeln('Сумма равна ', sum) end.

а так, классное решение, я вот затупил, через while пошол решать, муторно получилось и процессор грузит

var sum, i : integer; begin    for i := 100 to 200 do       if (i mod 7 = 0) and ((i div 100 = 4) or (i div 100 = 1)) then          sum := sum + i;    writeln('Сумма равна ', sum) end.

var a2,a,c,sym:integer;beginfor a:=100 to 200 do begin  a2:=a;  while (a2<>0) do begin    c:=a2 mod 10;    a2:=a2 div 10;  end;  if (a mod 7 = 0 ) and ((c=1) or (c=4)) then sym:=sym+a;  end;  writeln('сумма чисел от sym=',sym);end.