№1 Составить программу: С помощью цикла For пощитать сумму всех трехзначных чисел кратных 4.
№2 Составить программу: С помощью цикла Whiie пошитать сумму чисел кратных 5 из диапозона от 500 до 1000

спасибо )

Первая программа:program qwer;uses crt;var sum,i:integer;Begin sum := 0; for i := 100 to 999 do if i mod 4 = 0 then sum := sum + i; write(sum);End.Вторая программа:program qwer;uses crt;var sum, i : integer;Begin sum := 0; i := 500;sum := 0;while i <1001 dobegin  if i mod 5 = 0 then sum := sum + i;  i := i + 1;end;write(sum);End.