Дан одномерный массив состоящий из N вещественных чисел. Найти среди них минимальный кратный 3 элемент массива. Нужна блок-схема или, если кому удобнее, программа на Паскале.

Program z1; Var a: array [1 ... 100] of integer; i, min, n:integer; Begin write ('Введите размерн массива - ') ; readln (n) ; randomize; for i:=1 to n do begin a[i]:=random (20) + 1; write (a[i],' ') ; end; for i:=1 to n do if (a[i] mod 3 = 0) then min:=a[i]; for i:=1 to n do if ((a[i] mod 3 = 0) and (a[i]
End.