Ответ: Спасибо большое!

Ответ: var a:array[1..52] of byte; n,i:byte;beginreadln(n);//считать сколько будет чиселfor i:=1 to n doreadln(a[i]);//считывает числаfor i:= 1 to n doif (a[i]mod 7=1)or(a[i]mod 7=2)or(a[i]mod 7=5) then writeln(a[i]);//если у числа остаток 1 2 или 5 тогда она его выводитend.