Запросить 20 чисел проверить правда ли что среди введенных чисел все числа равны(паскаль) СРОЧНО!!!

var n0,n1:integer;     i:integer;     flag:boolean; begin   writeln('Введите 20 чисел');   readln(n0);   flag:=true;   for i:=2 to 20 do begin     readln(n1);     if n0<>n1 then flag:=false;   end;   if flag then writeln('Все числа равны') else writeln('Не все числа одинаковы'); end.