В каждой строке файла записано три числа, каждое из которых находится

var f1,f2:text;
R,G,B:integer;
//функция для перевода чисел из 10сс в 16сс
function ToHex (n:integer):string;
var s: string;
const
alf:string[16]=0123456789ABCDEF;
begin
s:=;
while (nlt;gt;0) do
begin
s:=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.