Выделить и сменить коротко
//Ошибка в if.
//В принципе можно обойтись и без вычисления s. Просто
//прерывать цикл при несовпадении двух шестеренок и
//выводить NO
var
n, s, i, m, m1: int64;
begin
s := 0;
Read(n, m1);
for i := 1 to n - 1 do
begin
Read(m);
if m = m1 then
S := s + 1;
m := m1;
end;
if (s = n - 1) then
Write('YES');
if (s <> n - 1) then
Write('NO');
end.
1. Первый многоядерный процессор <em>для массового использования</em> (а не для встроенных систем) – POWER4 с двумя ядрами PowerPC (IBM, 2001).
2. Первый четырёхъядерный процессор – <em>серверный</em> Intel Xeon (2006)
3. Первый шестиядерный процессор для <em>настольных</em> компьютеров – Intel Core i7-980X Extreme Edition (2010)
4. Первый восьмиядерный процессор для <em>настольных</em> ПК – Haswell-E (2013)
A:array[1..10] of integer;
b, d:array[1..10] of string;
c:array[1..10] of string;
m, n, i, k, t :integer;
begin
for i:=1 to 10 do
readln(a[i]);
readln(b[i]);
readln(c[i]);
t:=1;
for i:=1 to 10 do
if (2014-a[i])>65 then begin d[t]:=b[i]; t:=t+1; end;
for i:=1 to 10 do
if c[i]='м' then m:=m+1
else n:=n+1;
m:=m\10*100;
n:=n\10*100;
for i:=1 to t do
writeln(d[i]);
writeln(n);
writeln(m);
readln;
end.