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.
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.