Написать программу вывода на экран положительных чисел массива, кратных числу 5.

Var a:array[0..1000] of integer;
      i,k,n:integer;
begin
 readln(i);
 for n:=1 to i do    (заполняем массив)
 readln(a[n]);
 for k:=1 to i do 
 if (a[k]mod 5=0)and(a[k]>0) then 
writeln(a[k]);
 end.