Cifre

program cifre;
{$APPTYPE CONSOLE}
uses SysUtils;
var a:integer;b,c,d,e:byte;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  write('Zadajte 4ciferne cislo: ');
  readln(a);
  b:= a mod 10;
  a:= a div 10;
  c:= a mod 10;
  a:= a div 10;
  d:= a mod 10;
  a:= a div 10;
  e:= a mod 10;
  writeln('Ciferny sucet je: ',a+b+c+d);
  readln
end.