В текстовом файле mnk. txt результаты измерений записаны в два столбца: в первом столбце напряжение на проводнике, а во втором – соответствующая ему сила тока. Всего в файле 10 строчек с данными. 1) Напишите программу, которая читает данные из файла и вычисляет сопротивление резистора R, используя метод наименьших квадратов для закона Ома: .
2) Решите ту же задачу с табличного процессора. Сравните результаты.
Конкретно интересует пункт 2.

program xxx;

var a,s : string;

    i: integer;

begin

    writeln ('введите слово и символ-');

    readln (s,a);

    for i: =1 to length(a) do

        if copy (s,i,1)=a then writeln (i);

    readln

end.

program xxx;

  var i, n, s : integer;

begin

    write('введите число n=');

    readln(n);

    s: =0;

    i: =2;

    while i< =n do

        begin

          s: =s+i;

            i: =i+2

        end;

    write('сумма четных чисел =', s);

    readln

end.

uses crt; var a[1..100] of integer; i,n,count: integer; begincount: =0; read(n); for i: =1 to n do read(a[i]); if a[i]> 0 then inc(count); write(count); end.