var
q:array [1..8] of integer;
i:integer;
begin
randomize;
for i:=1 to 8 do begin
q[i]:=random(100);
write(q[i]:3);
end;
writeln;
for i:=1 to 8 do
if q[i] mod 7=5 then write(q[i]:3);
readln
end.

#include <stdio.h>
#include <time.h>
using namespace std;
int main ()
{
    srand(time(NULL));
    int q[8],i;
    for (i=0;i<8;i++)
    {
        q[i]=rand()%100;
        printf ("%d",q[i]);
    }
    for (i=0;i<8;i++)
    {
        if (q[i]%7==5)
        printf ("%d",q[i]);
    }
getchar();
}