тема 5 пункт 4 №7

program t5p4n7;

var j,a,b,d,n: longint;

begin

writeln ('vvedit chislo');

readln (n);

a:=0;

d:=1;

j:=n mod 10;

repeat

b:=n mod 10;

if j<>b then

begin

a:=a+b*d;

d:=d*10;

end;

n:=n div 10;

until n=0;

writeln (a);

readln

end.