Здравствуйте, нужно решить задачу )!​Язык Паскаль

const

 n=5;

var

 i, j : integer;

 a: array[0..n-1] of integer = (1,2,3,4,5);

 b: string;

begin

 for i := 0 to n-1 do begin

   b := ' YES';

   for j := 2 to a[i]-1 do

     if a[i] mod j = 0 then

       b := ' NO';

   if a[i]=1 then b:= ' NO';

   writeln(a[i], b)

 end;

end.