Дана последовательность из n целых чисел. Определить, есть ли в ней число, равное первому из этой последовательности.

program zz1;

const n = 13; / / задаем количество элементов в последовательности

R:array [1 ... n] of integer = (26, - 53, 0, - 67, 12, - 34, 0, 90, 14, - 78, 26, - 45, 66); / / задаем последовательность чисел

var i, m:integer; / / задаем переменные целого типа

begin

for i:=2 to n do / / организуем цикл, в котором переберем все числа в последовательности

if R[i] = R[1] then m:=1; / / проверяем, если число последовательности равено первому, то запоминаем это событие

if m = 1 then writeln (' в последовательности есть число равное первому числу ')

else writeln (' в последовательности нет числа равного первому числу '); / / выводим ответ

end.