Создать массив который вводит массив состоящи из 10 целых чисел.Выводятся на экран слово хорошо при условии,что элемент массива больше 10 и слово плохо в противном случаи

program Inf;uses crt;var a:array[1..10] of integer;i:integer;beginclrscr;for i:=1 to 10 do beginwrite(‘a[‘,i,’]=‘);readln(a[i]);if a[i]>10 then writeln(‘хорошо’)else writeln(‘плохо’);end;end.