составте программу находящее кол-во элементов попадающие в диапозон (100;500)

uses crt;var i,s:integer;a :array [1..10] of integer;Beginrandomize;for i:=1 to 10 do begina[i]:=random (1000)+0;if (a[i]>=100) and (a[i]<=500) then s:=s+1;write(a[i],' ');end;writeln;writeln(s);End.