Дана последовательность из n вещественных чисел. переменной t присвоить значение true, если в последовательности нет нулевых элементов. написать программу для pascal abc и блок-схему. студенческий уровень.

Var
N, i: integer;
x: real;
t: boolean;

begin
readln(N);
i := 0;
repeat
i := i + 1;
Readln(x);
until (x < 0.001) or (i = N);
t := x > 0.001;
writeln(t)
end.