Что получится в результате выполнения этого кода СОР по 3 четверть 7класс

{1}
const whereInput = 'C:\Users\1\Desktop\1.txt'; // <== путь файла
var
   input: text;
   n, n1, i, sum: longint;
begin
assign(input, WhereInput);
reset(input);
readln (input, n);
n1:=0; sum:=0;
for i:=1 to n do 
  begin
  read (input, n1);
  inc (sum, n1);
  end;
close (input);
write ('Среднее арифметическое: ', sum/n);
end.

{2}
const whereInput = 'C:\Users\1\Desktop\1.txt';
var
   input: text;
   n: longint;
   ch: char;
begin
assign(input, WhereInput);
reset(input);
n:=0;
while not eof(input) do
  begin
  read (input, ch);
  inc (n);
        if eoln(input) then readln(input);
 end;
close (input);
write ('Символов в файле: ', n);
end.

{3}
const whereInput = 'C:\Users\1\Desktop\1.txt';
var
   input: text;
   n, i: longint;
   ch: char;
begin
assign(input, WhereInput);
reset(input);
i:=0; n:=0;
while not eof(input) do
 begin
 read (input, ch);
 inc (n);
       if eoln(input) then
       begin
       readln(input);
       inc (i);
       writeln ('Символов в ', i, ' строке: ', n);
       n:=0;
       end;
end;
close (input);
end.

Var
a,b,c,p:real;
Begin
Write('a = ');Read(a);
Write('b = ');Read(b);
Write('c = ');Read(c);
if (a<b+c)and(b<a+c)and(c<a+b) then
Begin
if (a=b)and(a<>c) then Write('Треугольник равнобедренный, ')
else if (a=b)and(b=c) then Write('Треугольник равносторонний, ')
else if (a*a=b*b+c*c)or(b*b=a*a+c*c)or(c*c=b*b+a*a) then Write('Треугольник прямоульный, ')
else Write('Треугольник никакой, ');
p:=(a+b+c)/2;
a:=sqrt(p*(p-a)*(p-b)*(p-c));
Write('его площадь равна ',a);
End
else Write('Треугольник не существует')
End.