Помогите с программой по массиву!!!Погораю!!!

[Radiofuck]

Помогите, не могу здать зачет, реально погораю, если не здать до нового года могут отчислить.
Дан массив натуральных чисел A[1..50]. Вывести на экран индексы полных квадратов.

[Flash_]

Если я правильно задачу понял, то вот так:

program z1;
var A,B: array[1..50] of integer;
      i,k: integer;
begin
k:=1;
writeln ('Введите элементы массива: ');
for i:=1 to 50 do
read a[i];
for i:=1 to 50 do
if sqrt(a[i]) = trunc(sqrt(a[i])) then begin
                                                b[k]:=i;
                                                k:=k+1;
                                                end;
 
write ('Индексы полных квадратов: ');
for i:=1 to k do
write (k,' ');
end.

[zetrix]

Пришлось переделать, т.к. программа написанная flash_ - выводит k от 1 и до кол-ва полных квадратов. Т.е. она не выводит индексы.

program z1;
var A: array[1..50] of integer;
      i: integer;
begin
writeln ('Введите элементы массива: ');
for i:=1 to 50 do
read a[i];
for i:=1 to 50 do
if sqrt(a[i]) = trunc(sqrt(a[i])) then write (i,' '); 
readln;
end.

[Flash_]

Блин, действительно ошибка у меня. В предпоследней строчке имелось ввиду не k, a b[k]. Вот.
+ ещё одно.. Исходный массив должен быть real, a не integer. (Компилятор "не умеет" из целых чисел корни извлекать.)

[Radiofuck]

Гаспода, благодарю, все работает без всяких проблем.