Submission #2432021

---

Source Code Expand

var
  i:longint;
  s:string;
  p,x:boolean;
begin
  read(s);
  for i:=1 to length(s) do
    if s[i]='C' then
      begin
      p:=true; break;
      end;
  if p then
    for i:=i+1 to length(s) do
      if s[i]='F' then
        begin
        x:=true; break;
        end;
  if p and x then write('Yes')
             else write('No');
end.

Submission Info

Compile Error

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

Judge Result