создать массив из 30 элементов кратных 4 и 5 на интервале от 0 до 1000 и числа при этом трехзначные .

uses crt;var a:array[1..30] of integer;    r, i:integer;beginrandomize;ClrScr;r:=0;i:=1;while i<31 doif (r>100) and (r<1000) and ((r mod 4=0) or (r mod 5=0)) then begin a[i]:=r; r:=random(1000); inc(i); end else r:=random(1000);for i:=1 to 30 dowrite(a[i]:4);end.