Дана последовательность целых чисел а1,а2,..,а20. верно элементы последовательности равны собой.нужно написать программу на паскале с циклом

var a: array [1..20] of integer;     i: integer; begin      for i := 1 to 20 do          readln(a[i]);      for i := 1 to 20 do          if (a[i] <> a[1]) then          begin               writeln('Неверно');               exit;          end;      writeln('Верно'); end. Надеюсь, я правильно понял задачу, а то иногда не разобрать... Тут вначале надо 20 чисел ввести, а потом она проверяет, верно ли, что они все равны)