Пример программы:

program Summa;
var
a,b,c:integer;sum,pr:integer;sr:double;
Fin, Fout: text; {описание файловых переменных}
begin
Assign( Fin, 'input.txt' ); {переменная Fin связывается с файлом input.txt}
Reset( Fin ); {файл открывается для чтения с его начала}
Readln( Fin, a,b,c); {чтение первой строки файла}
Close( Fin ); {разрывается связь переменной Fin с файлом}

sum := a + b + c;
pr := a * b * a;
sr := sum / 3;
Assign( Fout, 'output.txt' );
Rewrite( Fout );
Writeln( Fout, a,'+',b,'+',c,'=',sum);
Writeln( Fout,a,'*',b,'*',c,'=',pr);
Writeln( Fout,'(',a,'+',b,'+',c,')/3','=',sr:5:3);
Close( Fout );
end.

http://taskcode.ru/