помогает пожалуйста
работа в паскале
составьте программу вычисления суммы всех трехзначных чисел кратных 4

program zadacha1;var s,i:integer;begins:=0;for i:=100 to 999 doif i mod 4=0 thenbegins:=+i;writeln('Сумма всех трёхзначных чисел, кратных 4=',s);end;end.

uses crt;var n, sum:integer;beginn := 100;while n < 1000 do    begin      sum += n;      n += 4;    end;    writeln('Сумма всех трёхзначных чисел, кратных 4= ',sum);end.