program Viduriniai_skaiciai;
 
    var kt, s1, s2, s3, s4, suma : integer;
 
begin
 
  WriteLn('Iveskite keturženklį skaičių:');
 
  ReadLn(kt);
 
  s1 := kt div 1000;
 
  s2 := kt div 100 mod 10;
 
  s3 := kt div 10 mod 10;
 
  s4 := kt mod 10;
 
  suma := s2 + s3;
 
  Writeln('Sudėjus vidurinius skaičius: ', suma);
 
ReadLn;
 
end.