Впаскале ! в массиве есть нулевые элементы. выдать на экран их номера.

Var
A:array[1..10] of real;
i:integer;
Begin
WriteLn('Введите 10 чисел');
For i:= 1 to 10 do
    Read(A[i]);
Write('Номера нулевых элементов: ');
For i:=1 to 10 do
    if A[i]=0 then Write(i,' ')
End.