c++ Дана непустая последовательность целых чисел, оканчивающаяся отрицательным числом. Необходимо определить, равны ли между собой все элементы последовательности. Отрицательное число членом последовательности не является. Выведите «YES», если условие задачи выполняется, и «NO» в противном случае.
Program Pifagor;
uses crt;
const n=10;
var
x,y:integer;
begin
writeln('');
writeln('* PIFAGOR *');
writeln('* (таблица умножения) *');
writeln('');
write('* * ');
for y:=1 to n do
begin
write(y:2);
if y<n then write(' | ')
else writeln(' * ');
end;
writeln('');
for x:=1 to n do
begin
write('* ',x:2, ' * ');
for y:=1 to n do
begin
write(x*y:2);
if y<n then write(' | ')
end;
if x*y<100 then writeln(' * ')
else writeln('* ');
if x<10 then writeln('++')
else writeln('');
end;
end.