Câu 1:
Program NN;
Uses crt;
Var St: String;
Begin
Clrscr;
Write('Nhap St: '); Readln(St);
Write(length(St));
Readln
End.
Câu 2:
Program NN;
Uses crt;
Var S1,s2,s: String;
Begin
Clrscr;
Write('Nhap S1: '); Readln(S1);
Write('Nhap S2: '); Readln(S2);
s:=S1+S2;
Write(S);
Readln
End.