Дан массив из тридцати элементов. вывести индексы всех элементов, равных по значению а. если таких элементов нет - вывести сообщение с текстом "no solution". формат входных данных на первой строке через пробел записаны целые числа arri (|arri|≤1000) — элементы массива. на второй строке записано целое положительное число a. формат выходных данных строка, содержащая искомые индексы, либо знадпись "no solution", если таковых нет.
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.