Submission #1731997

---

Source Code Expand

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils,Classes ;
var
  n,i,mushiru,hana:Integer;
  suki:Boolean;
  maisu: TStringList;//わからん
  nyuryoku:string;
begin
  try
    { TODO -oUser -cConsole Main : ここにコードを記述してください }
    maisu := TStringList.Create;
    Readln(n);
    Readln(nyuryoku);
    maisu.CommaText := nyuryoku;//スペース区切りだからデリミタを設定しないでそのままちぎる

    mushiru:=0;
    for i := 0 to n - 1 do begin
      suki:=False;
      hana:=StrToInt(maisu[i]);
      while suki=False do begin
        if (hana mod 2 = 0) or (hana mod 3 = 2) then begin
          hana:=hana-1;
          Inc(mushiru);
        end else
          suki:=True;
      end;
    end;

    Writeln(mushiru);
    Readln;
    maisu.Free;
  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