Contact: aviboots(AT)netvision.net.il
39,987 questions
51,931 answers
573 users
program StringStartsWithSubstring; var str, substr: string; begin str := 'Pascal Programming Language'; substr := 'Pascal'; if Pos(substr, str) = 1 then writeln('yes') else writeln('no'); end. (* run: Pascal *)