program files;
// программа рассчитана,при условии если считывается из текстового файла вся информация,перед числами можно ставить пробелы но не запятые
//чтобы корректно работала программа,Полиночка=),нажмешь на файл-сохранить все-создашь отдельную папку,создашь в этой папке текстовый документ
//с именем 'file.txt'
var txt:text;
yes,yeah:boolean;//булевый тип
c:integer;
begin
yes:=false;
yeah:=false;
assign(txt,'file.txt');//подготавливаем файл к открытию(связываем переменную с файлом)
Reset(txt);//Подготовка к считыванию значений из файла
while not EOF(txt)do //пока файл не закончится-выполнять цикл
begin
read(txt,c);//последовательно считывается каждое число в целочисленную переменную integer
if c=abs(c) then yeah:=true;//если встречаются числа с положительным знкаком то true
if c<>abs(c) then yes:=true;//определяем минус,если число не равно числу без минуса,(функция abs отбрасывает минус) то присваиваем логической переменной значение true,благодаря "yes" мы определим какая последовательность
end;
if (yes) and (yeah) then Writeln('Последовательность знакопеременна')else Writeln('Последовательность незнакопеременна');//если true то пишем знакопеременна,иначе незнакопеременна
close(txt);
end.