ХакерОнлайн. А что, мне нравиться
На столько хватило времени.
Еще можно при помощи макросов автоматизировать ведение базы до 60000 записей
Второй if (в круглых скобках) синтаксически неверен
//PascalABC.NET
//Версия 3.3, сборка 1634
begin
write('массив: ');
var a:=ArrRandom(15,-100,100).Println;
write('кол-во элементов <10: ',a.Where(x->x<10).Count);
end.