Вдвух строках текстого файла находится по два числа . найти среднее арифметическое этих чисел.результат вывести в выходной файл output.txt

// PascalABC.NET 3.3, сборка 1555 от 21.10.2017
// Внимание! Если программа не работает, обновите версию!

begin
  WriteAllText('output.txt',ReadAllText('input.txt').ToReals.Average.ToString)
end.

Человек лучше понимает и запоминает ту информацию, которая представлена наглядно — с рисунков, фотографий, схем, диаграмм.И дети, и взрослые любят иллюстрированные книги, потому что рисунки позволяют очень быстро понять, о чём идет речь. Так, чтобы понять, о чем написано в выделенном ниже фрагменте текста, вам потребуется приблизительно полминуты; чтобы воспринять смысл рисунка, будет достаточно нескольких секунд. Проверьте.В современных супермаркетах каждый товар имеет на упаковке штрих код — метку, состоящую из чёрных линии. Для чтения штрих-кодов применяют специальные штрих-сканеры. С их в компьютер вводят данные о стоимости покупки.


Для того чтобы показать, как устроены окружающие нас объекты (предметы, процессы, явления) и как они связаны друг с другом, используют схемы.Каждый ученик 5 класса знает схематичное изображение приставки, корня, суффикса и окончания слова. Поэтому вы сразу поймёте, о чём идёт речь, если учитель русского языка попросит подобрать слова, соответствующие следующей схеме:Для наглядного представления разных числовых данных используют диаграммы.

Program kvur;
var
x1,x2,d,e,f, a, b, c: real;
begin
writeln('Решение квадратного уравнения(ax^2+bx+c=0).');
write('Введите a: ');
readln(a);
write('Введите b: ');
readln(b);
write('Введите c: ');
readln(c);
d:=sqr(b)-4*a*c;
writeln('вы ввели:');
writeln('a= ',a:6:2);
writeln('b= ',b:6:2);
writeln('c= ',c:6:2);
writeln('D=b*b-4*a*c=',d:6:2);
if (d>=0)
then begin
e:= (-b/(2*a));
f:= (sqrt(d)/(2*a));
x1:= (e+f);
x2:= (e-f);
writeln('D>= 0, значит корни действительные: ');
writeln('x1= ',x1:6:2);
writeln('x2= ',x2:6:2);
end;
if(d<0) then begin
e:= (-b/(2*a));
f:= (sqrt(-d)/(2*a));
x1:= (e+f);
x2:= (e-f);
writeln(' D<0, значит корни комплексные: ');
writeln('x1= ', e:6:2, ' + ', f:6:2, 'i');
writeln('x2= ', e:6:2, ' - ', f:6:2, 'i');
end;
end.