Скажите что за видеокарта? точную модель.

Var a,b,c,m1,m2,m3,max: integer; function sum(n: integer): integer; var s: integer; begin s: =0; n: =abs(n); while n> 0 do   begin   s: =s+n mod 10;   n: =n div 10;   end; sum: =s; end; begin write('a, b, c: '); readln(a,b,c); m1: =sum(a); m2: =sum(b); m3: =sum(c); writeln('m1 = ',m1,' m2 = ',m2,' m3 = ',m3); if m1> m2 then max: =m1 else max: =m2; if m3> max then max: =m3; writeln('max = ',max); end. пример: a, b, c: 45 -3549 138 m1 = 9 m2 = 21 m3 = 12 max = 21

// pascalabc.net 3.2, сборка 1403 от 16.03.2017 // внимание! если программа не работает, обновите версию! function sumdigits(n: integer): integer; begin   result: =0;   while n> 0 do begin       result+=n mod 10;       n: =n div 10       end end; begin   var s: =readarrinteger('вводите: ',3).select(x-> sumdigits(;   var i: =s.indexmax;   var k: =s.where(x-> x=s[i]).count;   case k of       1: begin           write('сумма цифр наибольшая у ');           case i of               0: write('первого');               1: write('второго');               2: write('третьего');               end;           writeln(' числа')           end;       2: begin           write('сумма цифр наибольшая у ');           if s[0]=s[1] then writeln('первого и второго чисел')           else               if s[0]=s[2] then writeln('первого и третьего чисел')               else writeln('второго и третьего чисел')           end;       3: writeln('суммы цифр у всех трех чисел равны')       end end. примеры вводите: 102030 324 19 сумма цифр наибольшая у третьего числа вводите: 16453 4320 56341 сумма цифр наибольшая у первого и третьего чисел вводите: 12345 12354 54321 суммы цифр у всех трех чисел равны