14 lines
219 B
ObjectPascal
14 lines
219 B
ObjectPascal
var a,dec,hun,one,k:integer;
|
|
begin
|
|
writeLn('Ââĺäčňĺ ÷čńëî');
|
|
writeln;
|
|
readln(a);
|
|
one:=a mod 10;
|
|
a:=a div 10;
|
|
dec:=a mod 10;
|
|
a:=a div 10;
|
|
hun:=a mod 10;
|
|
a:=a div 10;
|
|
K:=hun+dec+one;
|
|
write(k);
|
|
end. |