Дан массив из тридцати элементов. Вывести индексы всех элементов, равных по значению а.
Если таких элементов нет - вывести сообщение с текстом "No solution".
Формат входных данных

На первой строке через пробел записаны целые числа Arri (|Arri|≤1000) — элементы массива.

На второй строке записано целое положительное число a.
Формат выходных данных
Строка, содержащая искомые индексы, либо знадпись "No solution", если таковых нет.

var   i, x: integer;   a: array[1..30]of integer;   b: boolean;  begin   b := false;   for i := 1 to 30 do read(a[i]);   readln(x);   for i := 1 to 30 do if(a[i] = x) then      begin       b := true;       write(i, ' ');      end;   if (b = false) then write('No solution'); end.