Viết chương trình nhập vào 1 xâu và 1 số nguyên N, xuất ra màn hình n kí tự đầu, n kí tự cuối cùng của xâu vừa nhập.

program Xau;
uses CRT;
var   s,s1: string;
       i,n: byte;
begin
      clrscr;
     
      write('Nhap xau S: ');readln(s);
     
      write('Nhap n= ');readln(n);
     
      write('N ki tu dau: ');
     
      for i:=1 to n do
     
          write(s[i]);
         
      writeln;
     
      for i:=length(s) downto length(s)-n+1 do
     
          s1:= s[i] + s1;
         
      write('N ki tu cuoi cung: ',s1);
     
readln;
end.

var   s,s1: string;
i,n: byte;
begin
clrscr;
write(‘Nhap xau S: ‘);readln(s);
write(‘Nhap n= ‘);readln(n);
write(‘N ki tu dau: ‘);
for i:=1 to n do
write(s[i]);   
writeln;    
for i:=length(s) downto length(s)–n+1 do     
s1:= s[i] + s1;       
write(‘N ki tu cuoi cung: ‘,s1);
readln;

end.