Дано целое число N - количество элементов массива. Вывести те цифры элементов массива, которые содержатся хотя бы в одном из разрядов сотен. Если таких цифр нет, выведите сообщение "Таких цифр нет". Паскаль abc

Var

A:array of integer; / / Динамический массив

n, i:integer;

flag:boolean;

begin

readln (n) ;

SetLength (A, n) ; / / Выделение памяти

randomize;

for i:=0 to n-1 do

A[i]:=random (1000) ;

flag:=false;

for i:=0 to n-1 do

if (A[i] div 100) >0 then

begin

write (A[i]:4) ;

flag:=true;

end;

if not (flag) then writeln ('Таких цифр нет') ;

end.