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

Uses crt;

var a:array[1 ... 30] of integer;

r, i:integer;

begin

randomize;

ClrScr;

r:=0;

i:=1;

while i<31 do

if (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 do

write (a[i]:4) ;

end.