В каждой строке файла записано три числа, каждое из которых находится в интервале [0,255]. Эти числа обозначают красную,

var f1,f2:text;R,G,B:integer;//функция для перевода чисел из 10сс в 16ссfunction ToHex (n:integer):string;var s: string;constalf:string[16]=\'0123456789ABCDEF\';begins:=\'\';while (n<>0) dobegins:=alf[(n mod 16)+1]+s;n:=n div 16;end;ToHex:=s;end;begin//ввод данных из файлаassign(f1,\'c:\\input.txt\');reset(f1);readln(f1,R, G, B);close(f1);assign(f2,\'c:\\output.txt\');rewrite(f2);//преобразование данных и их вывод в другой файл write(f2,ToHex(R),ToHex(G),ToHex(B));close(f2);end.