No Name

PROGRAM TUGAS_2;
USES WINCRT, WINDOS;
VAR
S1,S2,S3,S4:STRING [14];
A,B,C,D:BYTE;
BEGIN
CLRSCR;
S1:=’LAB’; S2:=’PEMOGRAMAN’;
A:=LENGTH(S1); B:=LENGTH(S2); C:=1; D:=100;
WRITELN(S1,’ ‘,S2);WRITELN(A,’ ‘,B,’ ‘,C,’ ‘,D);
INSERT(S1,S2,B+C);WRITELN(S2);
S3:=CONCAT(S1,S2);WRITELN(S3);
STR(D,S4);WRITELN(S4);
DELETE(S3,A,B);WRITELN(S3);
S4:=COPY(S1,B,B);WRITELN(S4);
READLN;
END.