Прога на паскале. надо ввести натуральное число и в нем вычислить сумму четных цифр (с конца этого числа) до первой не четной цифры. пример: ввод числа 1784 вывод: 8+4=12

Var
 n,k,sum:integer; s,s1:string;
begin
write('n = '); readln(n);
s:='';
sum:=0;
while (n>0)and(n mod 2 = 0) do
 begin
 k:=n mod 10;
 str(k,s1);
 s:=s1+'+'+s;
 sum:=sum+k;
 n:=n div 10;
 end;
if s<>'' then s[length(s)]:='=';
writeln(s,sum);
end.

Пример:
n = 1784
8+4=12

//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016)
var
  a, s: integer;

begin
  write('Введите число : ');
  readln(a);
  while a <> 0 do
  begin
    if a mod 2 = 0 then begin
      s := s + a mod 10;
      write(a mod 10);    
      a := a div 10;
      if a mod 2 = 0 then write('+') else break
    end;  
  end;
  write('=');
  writeln(s);
end.

Тестовое решение:
Введите число : 1784
4+8=12