Ответ: 16.
1. 8+3=11
15-11=4
2. 6+2=8
12-8=4
3. 9+3=12
12+4=16
Если я правильно понял условие(Вывести сколько раз в массиве встречается число введенное с клавиатуры), то
for i:=m to n do
if a[i]=x then k:=k+1;
write(k);
П.с. если условие такое как я понял, то переменная USL вообще не нужна.
Составил таблицу, фамилии и номер дома можно выбирать из списка.
256 мегабайт-2048000000 бит=2.048e+9
256 мегабайт=256000000 байт=2.56e+8
256 мегабайт=256000 килобайт
Var a: integer;
begin
writeln('Введите порядковый номер: ');
readln(a);
case a of
1: writeln('Мать: 1.1.2017');
2: writeln('Отец: 2.2.2017');
3: writeln('Бабушка: 3.3.2017');
4: writeln('Дедушка: 4.4.2017');
else writeln('Неверно введен порядковый номер. Попробуйте еще раз.');
end;
end.
--------
Даты вводи те, которые тебе нужны. Порядковые номера также можно изменить по собственному усмотрению.