Var
a:array[1..10] of integer;
i,k,l:integer;
begin
for i:=1 to 10 do begin
write(i,'-й элемент: ');
readln(a[i]);
end;
write('Введите сравнительное число: ');
readln(l);
writeln('Вычисляем...');
k:=0;
for i:=1 to 10 do
if a[i]<l then k:=k+1;
writeln(k,' чисел меньше ',l);
end.
640 умножить на 240 = 163840 пикселей
Ответ будет - многоуровневая файловая система.
Информация
Что тут сложного?)
Для перевода экрана в графический режим.