Submission #1869025

---

Source Code Expand

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils,math;
var
  s,k:string;
  i,x,a,count:Integer;
begin
  try
    { TODO -oUser -cConsole Main : ここにコードを記述してください }
    Readln(s);

    k:='WBWBWWBWBWBWWBWBWWBWWBWBWWBWBWBWWBWBWWBW';
    count:=0;
    for i := 1 to 20 do begin
      if k[i]='W' then
        Inc(count);
      if s = Copy( k, i, 20 ) then
        Break;
    end;

    case count of
      1:Writeln('Do');
      2:Writeln('Re');
      3:Writeln('Mi');
      4:Writeln('Fa');
      5:Writeln('So');
      6:Writeln('La');
      7:Writeln('Si');
    end;
    Readln;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.

Submission Info

Compile Error

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

Judge Result