uses crt;
var ns,tuoi,nam :integer ;
begin
clrscr ;
write('moi thay/co nhap so tuoi hien tai: ');
readln(tuoi);
write('moi thay/co nhap nam hien tai: ');
readln(nam);
ns:=nam-tuoi ;
writeln('nam sinh cua thay/co la: ',ns);
readln
end.
// khoadang09

ProgramBL2;

Constfin ='BL2.INP';

fout='BL2.OUT';

VarS:String;

i,Sum,T:Longint;

f:Text;

Begin

Assign(f,fin);

Reset(f);

Read(f,S);

Close(f);

Sum:=0;

T:=0;

Fori:=Length(S) downto1 do

IfS[i] in['0'..'9'] thenT:=T*10+(ord(S[i])-48)

Else

Begin

Sum:=Sum+T;

T:=0;

End;

Sum:=Sum+T;

Assign(f,fout);

ReWrite(f);

Write(f,Sum);

Close(f);

End.