Перенаправление прочитайте число n из файла input.txt и выведите его в файл output.txt (-32768 < n < 32767)! входные данные: в единственной строке входного файла input.txt записано число от -32767 до 32766! выходные данные: в единственную строку выходного файла output.txt нужно вывести в точности то же число, которое задано во входном файле! примеры: № input.txt output.txt 1 3 3 2 0 0 3 32766 32766 4 -32761 -32761
var
f1,f2:text;
i: integer;
begin
AssignFile(F,'input.txt'); Reset(F); Read(F,i);
Close(F);
AssignFile(f1,'output.txt');
Rewrite(f1);
Write(f1,i); Close(f1);
end.