Дан массив M, состоящий из 30 элементов. Элементы массива - произвольные целые числа. Выдать на экран значение каждого пятого и

USES Crt;
 VAR
   M:ARRAY[0..30] OF INTEGER;
   I: BYTE;
 BEGIN
   ClrScr;   Randomize;
   WriteLn(' Значения элементов массива');
   FOR I:=1 TO 30 DO Begin
     M[I]:=Random(20)-4;  Write(M[I]:3);
   End;   WriteLn;
   I:=5;
   WriteLn(' Значения каждого пятого и положительного элемента массива');
   While I<=30 DO Begin
     IF M[I] > 0 THEN Write(M[I]:3);
     I:=I+5;
   End;
 END.