Определите результат вычисления суммы целых десятичных чисел: 25000+3 в формате с фиксированной запятой для 16-разрядной ячейки.

1) var a,b,sum : integer; begin readln(a, b); if (a mod b = 0) then   begin   while a > 0 do       begin           sum: = sum + (a mod 10);           a: = a div 10;       end;   if sum > b then       begin       writeln('верно');       halt;       end;   end; writeln('неверно'); end. пример: 1234 2верно2) vari: integer; beginfor i: = 100 to 999 do  if (i*i)mod 1000 = i then write(i, ' '); end. результат: 376 625 3) var i,n : integer; function simple(n: longint): boolean; var   i: longint; begin   for i : = 2 to round(sqrt(n)) do       if n mod i = 0 then           break;   simple : = n mod i < > 0; end; begin   read(n);   for i: = 1 to round(sqrt(n)) do         if n mod i = 0 then             if (simple(i))and(simple(n div i)) then               begin               writeln('yes');               halt;               end;   writeln('no'); end. пример: 33 yes