Прикладываю исходник и скрин в приложении к ответу.
<u><em>Несколько замечаний:
</em></u><em />1. <em />Большое количество комментариев внесено в код исключительно в учебных целях. В реальную программу переносить не рекомендуется - признак нехорошего тона.
2. У вас допущены синтаксические ошибки в двух последних циклах, а точнее - в операторах If, в которых стоит три условия (объединённых and), но нет ключевого слова "then" и последующих инструкций. Исправил.
3. Так же, автор вашей программы построил на мой взгляд нелогичную структуру алгоритма. Переменные min, min2 и min3, как я догадался, должны хранить три минимальных значения массива.
А вот что происходит в вашей конструкции: первый цикл безошибочно находит наименьший элемент и записывает его в min, а последующие два цикла записывают в min2 и min3 первые попавшиеся(начиная с первого) элементы, если они больше min. Таким образом, нет никакой закономерности в том, что попадёт в эти переменные и сложно представить, для какой задачи потребовались бы такие случайности.
Одним из вариантов решения предлагаю изначально записывать в эти три переменные не значение первого элемента массива, а какое-то большое число, которое в массиве нам не встретится (например 100). Тогда цикл будет искать значения меньше 100 и перезаписывать им соответствующую переменную, пока не найдёт самое маленькое значение. В таком случае не очень стабильная переменная j нам так же не нужна, я её вычеркнул.
Вам отсылаю уже с учётом поправок, однако если вам требовалась <u><em>именно первоначальная версия</em></u> несмотря на её минусы, просто поправьте синтаксис в последних циклах (41 и 34 строчка на скрине) и пользуйтесь ей.
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.
--------
Даты вводи те, которые тебе нужны. Порядковые номера также можно изменить по собственному усмотрению.
Это все ответы для Интернет урока за 8 класс Информатика.
Смотри,на 50 тумбо символов ушло 250 бит инфы,значит на один символ 250/50=5 бит.У юмбы на 30 символов ушло 250+50=300 бит инфы,значит на 1 символ у них ушло 300/30=10 бит.Формула для нахождения количества символов у нас N=2^i,где i- кол-во бит на 1 символ,а N-число символов в алфавите.У тумбо 2^5=32 символа,у юмбо 2^10=1024 символа.Вроде верно