Submission #3091647

---

Source Code Expand

var m:Longint;
begin
read(m);
if m<1000 then begin write(0);writeln(m div 100);end
else if m<5001 then writeln(m div 100)
else if m<30001 then writeln((m div 1000)+50)
else if m<70001 then writeln((m div 5000)+74)
else writeln(89)
end.

Submission Info

Compile Error

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

Judge Result