program Name1;

  var
  duot, sk1, sk2, sk3, a, b : integer;

begin
  Writeln('Labas, programa pradeda darba. Iveskite trizenkli sveika skaiciu:');
  Readln(duot);

  if duot > 999 then
  writeln('Skaicius nera trizenklis!') else
  if duot < -999 then
  writeln('Skaicius nera trizenklis!') else
  
  begin
  sk1 := duot div 10;
  b := duot mod 10;
  a := sk1 mod 10;
  sk2 := duot div 100;
  if a < 0 then
  a := a*-1;
  if b < 0 then
  b := b*-1;
  if sk2 < 0 then
  sk2 := sk2*-1;
  Writeln(a,b,sk2);
  Sk3 := a+b+sk2;
  if sk3 < 0  then
  sk3 := sk3*-1;
  Writeln('Skaitmenu suma yra ', sk3);
  end;
  Writeln('Darbo pabaigimui spauskite ENTER.');

  Readln;

end.