Viết chương trình nhập một xâu, xuất xâu vừa nhập ra màn hình bắt đầu từ vị trí có xâu “abc” đến hết xâu

program xuat_xau;

uses crt;

var s:string;

     i:byte;

begin

      clrscr;

      write(‘Nhap xau: ‘);  readln(s);

      if pos(‘abc’,s)<>0 then

            for i:=pos(‘abc’,s) to length(s) do write(s[i])

      else write(‘Khong co xau abc de bat dau viet’);

      readln;

end.