дан одномерный массив x1 x2 ... xn найдите все элементы кратные 5 напишите в паскале

vari,k,j:integer;x:array [1..10] of integer;beginrandomize;for i:=1 to 10 dox[i]:=random(64);for i:=1 to 10 doif x[i] mod 5 = 0 thenwriteln(x[i]);end.