Cpascal #7

{
Сибирский Государственный Университет Путей Сообщения (СГУПС)
Кафедра "Информационные технологии транспорта"

Задание:
Вывести число, противоположное заданному.

Входные данные: Во входном потоке задано целое число А (-32768 <= A <= 32767).
Выходные данные: В выходной поток вывести единственное целое число.
Пример входного файла (input.txt):4.
Пример выходного файла (output.txt):-4.

Ограничения [Время: 1000ms, Память: 128MB, Сложность: 1%]

Выполнил: ст.гр. МЛ-212, Фомин Александр
г.Новосибирск, 2014г.
}
Program CyberPascal; uses crt;

const f_name1=('InPut.txt');
      f_name2=('OutPut.txt');

var f_text1,f_text2:text;
    x,error:integer;
    st:string;

Begin clrscr;
Assign(F_text1,F_name1); {Подключаем файл "F_name1" к переменной F_Text1}
Reset(F_text1); {Открываем файл "F_name1" для чтения}
While not Eof(F_text1) do Readln(F_text1,St);
Close(F_text1); {Закрываем файл "F_name1"}

Write('--------------------------------------------------------------------------------');
Writeln(' Данные из файл "',F_name1,'" считаны...');

Val(St,X,Error); {Преобразуем строку в число}

if (Error <> 0) then
                Begin
                    Write('--------------------------------------------------------------------------------');
                    Writeln(' ОШИБКА! Код ошибки', Error);
                    end;

if (Error = 0) then
                   Begin
                   Assign(F_text2,F_name2); {Подключаем файл "F_name2" к переменной F_Text2}
                   ReWrite(F_text2); {Создаем файл "F_name2" и открываем для записи}
                   Writeln(F_text2,(X*(-1)));
                   Close(F_text2); {Закрываем файл "F_name2"}

                   Write('--------------------------------------------------------------------------------');
                   Writeln(' Файл "',F_name2,'" успешно создан...');
                   end;
Write('--------------------------------------------------------------------------------');
GotoXY(15,WhereY); Writeln('Для выхода из программы нажмите клавишу "Enter"');
Write('--------------------------------------------------------------------------------');
Readln;
end.