program UchXonaliSonRaqamlarYigindisi;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  son, yuzlik, onlik, birlik, yigindi: Integer;
begin
  // Foydalanuvchidan uch xonali sonni kiritishni so'raymiz
  Write('Uch xonali sonni kiriting: ');
  ReadLn(son);

  // Tekshirish: Uch xonali son kiritilganligini ta'minlash
  if (son < 100) or (son > 999) then
  begin
    WriteLn('Iltimos, uch xonali son kiriting!');
    Exit;
  end;

  // Raqamlarni ajratamiz
  yuzlik := son div 100;
  onlik := (son div 10) mod 10;
  birlik := son mod 10;

  // Raqamlar yig'indisini hisoblash
  yigindi := yuzlik + onlik + birlik;

  // Natijani chop etish
  WriteLn('Raqamlar yig''indisi: ', yigindi);

  // Konsolni yopmaslik uchun keyingi qadamni kutamiz
  ReadLn;
end.