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

Question

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

---

Answer 1

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.