Question

Помогите составить программу

Answer 1

var    
     arr : array[1..999] of integer;
     N, k: integer;
begin
    read(N);
    for var i := 1 to N do begin
        arr[i] := random(1, 5);
        writeln(arr[i]);
        if arr[i] = 5 then
             k += 1;
    end;
    writeln(k);
end.