Viết chương trình pascal nhập vào 1 xâu bất kì.Đưa ra kết quả hàm copy (s,vt,n).vt,n nhập vào từ bàn phím

* Cú pháp hàm copy: copy(<xâu>,<pos>,<số ký tự>);

* Sao chép trong xâu, số ký tự tại vị trí pos.

uses crt;
var s:string; n,vt:longint;
begin
clrscr;
   write(‘Nhap xau s: ‘); readln(s);
   write(‘Nhap n: ‘); readln(n);
   write(‘Nhap vi tri: ‘); readln(vt);
   writeln(copy(s,vt,n));
readln
end.