Помогите сделать на Паскале. Из множества чисел [1..n] выделить пересечение подмножеств - чисел вида 4k+1 и 5n+4.

var n,k,i :longint;
begin
readln(n);
for i:=1 to n do begin
read(k);
if (k mod 5 = 4) and (k mod 4 = 1) then write(k, ' ');
end;
end.