Задача с массивом..., Определить эл-ты делящиеся на 4... Опции

[ghost]

В массиве B(20) определить элементы, делящиеся на 4 без остатка, и сформировать из них новый массив C, подсчитав количество таких
элементов и минимальный и максимальный среди них.

Помогите решить задачу, пожалуйста.

[Лита]

В массиве B(20) определить элементы, делящиеся на 4 без остатка, и сформировать из них новый массив C, подсчитав количество таких
элементов и минимальный и максимальный среди них.

Как сделать так, чтобы если введут число не из данного диапозона или введут букву, то появлялось бы надпись, которая сообщала что это не правильно и надо так-то...?

Описание идентификаторов я уже писала:

Код

Uses crt;
const n=20;
Var b,c:array [1..n] of integer;
  min,max,i,j,k:integer;

Если будет введена буква, программа автоматически прервется, потому что будет несоответствие типов.
В вашей задаче не указаны ограничения для ввода чисел. но обчыно я делаю это так:

Код

Uses crt;
const n=20;
Var b,c:array [1..n] of integer;
  min,max,i,j,k:integer;
Label a;

i:=0;
Repeat
 inc(i);
 a:readln(b[i]);
 If {условие, накладываемое на b[i], не выполняется} then
            begin
            writeln('TRY once more!');
            goto a;
            end;
Until i>=20;