Submission #2173457

---

Source Code Expand

var
    a:array[1..5] of char;
    i,j,k:longint;
    s:string;
begin

j:=1;
    readln(s);//逼我加注释...
    a[1]:='C';//逼我加注释...
    a[2]:='F';//逼我加注释...
    
    for i:=1  to length(s) do//逼我加注释...
        begin//逼我加注释...
            if j=3 then break;//逼我加注释...
            if s[i]=a[j] then j:=j+1;//逼我加注释...
            
            
        end;//逼我加注释...
  if j=3 then writeln('Yes') else writeln('No');//逼我加注释...

readln;//逼我加注释...
readln;//逼我加注释...
end.//逼我加注释...

Submission Info

Compile Error

/usr/bin/ld.bfd: warning: ./link.res contains output sections; did you forget -T?

Judge Result