23. Utvorte program na výpočet ciferného súčtu kladného čísla zadaného na vstupe.
program cifry;
uses crt;
var cislo:integer;
cifra1,cifra2,cifra3,cifra4,cifra5:integer;
pomocna1,pomocna2,pomocna3,pomocna4, sucet: real;
begin
clrscr;
repeat
writeln ('zadaj cele cislo');
read (cislo);
until cislo>0;

cifra1:=cislo mod 10;
cifra2:=((cislo mod 100)-cifra1);
cifra3:=((cislo mod 1000)-cifra1-cifra2);
cifra4:=((cislo mod 10000)-cifra1-cifra2-cifra3);
cifra5:=((cislo mod 100000)-cifra1-cifra2-cifra3-cifra4);

pomocna1:=(cifra2/10);
pomocna2:=(cifra3/100);
pomocna3:=(cifra4/1000);
pomocna4:=(cifra5/10000);

sucet:=(cifra1+pomocna1+pomocna2+pomocna3+pomocna4);
writeln;
writeln('Sucet cifier je : ', sucet:2:0);
readkey;
end.