Паскаль
среди 8 чисел, введённых с клавиатуры, выписать кратные a

Const n=8;
var
b: array[1..n] of integer;
a,i: integer;
begin
readln(a);
for i:=1 to n do readln(b[i]);
for i:=1 to n do if b[i] mod a=0 then writeln(b[i]);
end.

если нужно без массива, напишите