Дан одномерный массив выведите на экран числа >5

Program n1;const n=10;var a: array [1..n] of integer;i: integer;beginfor i:=1 to n do readln(a[i]);for i:=1 to n do if a[i]>5 then write(a[i],' ');end.