PascalABC 11.30.В массиве хранится
информация о численности учеников в
каждом из 42 классов школы. Выяснить,
верно, ли, что общее число учеников в
школе есть четырехзначное число.

var a : array [1..42] of integer;sum : integer;i : byte;beginrandomize;for i := 1 to 42 do begina[i] := random(30) + random(20);write(a[i], '|');sum += a[i];end;writeln();if sum >= 1000 then writeln('Число четырехзначное! Всего: ', sum)elsewriteln('Число НЕ четырехзначное! Всего: ', sum)end.----массив заполняется случайным образом