C++ :

#include<iostream>
using namespace std;
long long n,m;
string s;
int  main(){
    cin>>n>>s>>m;
    for(int i=m-1;i<n;i++)
    cout<<s[i];
    return  0;
}

Pascal :

var ch:array[1..99999]of char;
    n,i,t:longint;
begin
  readln(n);
  for i:=1 to n do
  read(ch[i]);
  readln;
  readln(t);
  if t<=n then
  begin
    for i:=t to n do
    write(ch[i]);
  end;
end.