uses crt;
var a,s:integer;
begin
  clrscr;
  randomize;
  a:=random(22678)+10000;
  writeln('число:',a);
  s:=(a mod 10)+(a div 10000)+(a mod 10000 div 1000);
  write('сумма 1,2 и 5 цифр:',s);
end.