Помогите пожалуйста по иформатике

var   arr: array [1.. 50] of integer;   i : byte;   sum : integer;   begin Randomize(); sum := 0; for i := 1 to 50 do   begin   arr[i] := random(650, 750);   if arr[i] mod 4 = 0 then sum += arr[i];   end;   if sum <> 0 then writeln(sum) else writeln('Таких чисел нет')end.