Укажите какой файл вы откроете чтобы просмотреть демонстрационный ролик

Хех, я так понял расширение файла?

Аеще можно без головной // pascalabc.net 3.0, сборка 1111 var   a,b: biginteger;   sa,sb: string; begin   write('первое слагаемое: '); readln(sa);   if biginteger.tryparse(sa,a)=false then writeln('это не целое число! ')   else begin       write('второе слагаемое: '); readln(sb);       if biginteger.tryparse(sb,b)=false then writeln('это не целое число! ')       else writeln('точный результат: ',a+b)       end end. тестовое решение: первое слагаемое: 5423323409523846095938445870434764308454095 второе слагаемое: 7425543205430235436743455446541423534233 точный результат: 5430748952729276331375189325881305731988328

Var   s,s1: string;   a,b: array[1..100]of integer;   i,n,x,k: integer;       begin           readln(s);           readln(s1);           n: =1;             if length(s)> length(s1) then               x: =length(s)               else x: =length(s1);                 for i: =1 to length(s) do                 begin                   val(copy(s,i,1),k,n);                   a[i+x-length(s)]: =k;                 end;                     for i: =1 to length(s1) do                 begin                   val(copy(s1,i,1),k,n);                   b[i+x-length(s1)]: =k;                 end;           for i: =1 to length(s) do               a[i]: =a[i]+b[i];               for i: =length(s) downto 2 do               begin                 a[i-1]: =a[i-1]+a[i]div 10;                 a[i]: =a[i]mod 10;               end;           for i: =1 to length(s) do             write(a[i]);                                           end.