VAR
 S:String;
BEGIN
 Writeln('Enter the string:');
 Readln(S);
 Writeln(Ord(S[1]),'   ',Ord(S[Length(S)]));
 Readln
END.

VAR
 S,S1:String;
 i,i1,i2:Byte;
BEGIN
 Writeln('Enter the string:');
 Readln(S);
 i1:=0;
 i2:=0;
 For i:=1 to Length(S) do
  begin
   If (i1=0) and (S[i]=' ') then i1:=i;
   If (i1>0) and (i>i1) and (i2=0) and (S[i]=' ') then i2:=i;
  end;
 If i2=0 then S1:='' else S1:=Copy(S,i1+1, i2-i1-1);
 Writeln(S1);
 Readln
END.

VAR
 S:String;
 i,n:Byte;
 Sum,Code:Word;
BEGIN
 Writeln('Enter the string:');
 Readln(S);
 Sum:=0;
 For i:=1 to Length(S) do
  begin
   Val(S[i],n,Code);
   Inc(Sum,n);
  end;
 Writeln('Sum= ',Sum);
 Readln
END.

VAR
 S,S1,S2:String;
 p:Byte;
BEGIN
 Writeln('Enter the string S:');
 Readln(S);
 Writeln('Enter the string S1:');
 Readln(S1);
 Writeln('Enter the string S2:');
 Readln(S2);
 Repeat
  p:=Pos(S1,S);
  If p>0 then
   begin
    Delete(S,p,Length(S1));
    Insert(S2,S,p);
   end;
 Until p=0;
 Writeln(S);
 Readln
END.