7.05, 8кл

Program xxl;

VAR

 s,s1,s2,s3:String;

a,b:Integer;

 

BEGIN

 S:=’КалА мАло КатАла балакала’;

S1:=’ла’;

S2:=’окно’;

WriteLn(length(s1)+length(s2)+3);

insert(s1,s,4);

WriteLn(s);

WriteLn(pos(s2,s1));

s3:=copy(s2,2,2);

WriteLn(s3);

For a:=1 to 2 do s3[a]:=Succ(s3[a]);

WriteLn(s3);

WriteLn(pos(s3,s));

a:=a+Length(s);

str(a,s1);

s1:=s1+s2;

WriteLn(s1);

s3:=copy(s1,1,2);

Val(s3,b,a);

WriteLn(b);

END.