program SumThreeDigitMultipleFour;
 
var
  n, s: integer;
 
begin
  s := 0;
 
  write('Введите число (0 для окончания ввода): ');
  readln(n);
 
  while n <> 0 do
  begin
    // Проверяем, является ли число трехзначным и кратным 4
    if (n >= 100) and (n <= 999) and (n mod 4 = 0) then
      s := s + n;
 
    write('Введите число (0 для окончания ввода): ');
    readln(n);
  end;
 
  writeln('Сумма трехзначных чисел, кратных 4: ', s);
end.

cHJvZ3JhbSBTdW1UaHJlZURpZ2l0TXVsdGlwbGVGb3VyOwoKdmFyCiAgbiwgczogaW50ZWdlcjsKCmJlZ2luCiAgcyA6PSAwOwogIAogIHdyaXRlKCfQktCy0LXQtNC40YLQtSDRh9C40YHQu9C+ICgwINC00LvRjyDQvtC60L7QvdGH0LDQvdC40Y8g0LLQstC+0LTQsCk6ICcpOwogIHJlYWRsbihuKTsKICAKICB3aGlsZSBuIDw+IDAgZG8KICBiZWdpbgogICAgLy8g0J/RgNC+0LLQtdGA0Y/QtdC8LCDRj9Cy0LvRj9C10YLRgdGPINC70Lgg0YfQuNGB0LvQviDRgtGA0LXRhdC30L3QsNGH0L3Ri9C8INC4INC60YDQsNGC0L3Ri9C8IDQKICAgIGlmIChuID49IDEwMCkgYW5kIChuIDw9IDk5OSkgYW5kIChuIG1vZCA0ID0gMCkgdGhlbgogICAgICBzIDo9IHMgKyBuOwogICAgCiAgICB3cml0ZSgn0JLQstC10LTQuNGC0LUg0YfQuNGB0LvQviAoMCDQtNC70Y8g0L7QutC+0L3Rh9Cw0L3QuNGPINCy0LLQvtC00LApOiAnKTsKICAgIHJlYWRsbihuKTsKICBlbmQ7CiAgCiAgd3JpdGVsbign0KHRg9C80LzQsCDRgtGA0LXRhdC30L3QsNGH0L3Ri9GFINGH0LjRgdC10LssINC60YDQsNGC0L3Ri9GFIDQ6ICcsIHMpOwplbmQu