Паскаль. Вводится целое число. Найти разность между суммами цифр стоящих на…

var sn, s, n, c: integer; begin read (n); c: =0; sn: =0; s: =0; while n > 0 do begin if c mod 2=0 then s: =s+n mod 10 else sn: =sn+n mod 10; n: =n div 10; inc (c); end; if c mod 2=0 then writeln (s — sn) else writeln (sn — s); end.