Submission #1772345

---

Source Code Expand

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
  n:Integer;
begin
  try
    { TODO -oUser -cConsole Main : ここにコードを記述してください }
    Readln(n);
    Writeln(n);
    while True do begin
      Writeln(1);
      n:=n-1;
      if n=0 then
        break;
    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