Напиши программу на паскале. В последовательности из N натуральных чисел определить имеются ли числа кратные 4.

var    n, i, k: integer;    f: boolean;begin    readln(n);    f := false;        for i := 1 to n do     begin        k := Random(100);        f := f or (k mod 4 = 0);     end;        writeln(f);end.