Cod sursa(job #566744)

Utilizator kindakinda assfour kinda Data 29 martie 2011 11:41:36
Problema A+B Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.35 kb
{$IFDEF NORMAL}
  {$I-,OBJECTCHECKS-,Q-,R-,S-}
{$ENDIF NORMAL}
{$IFDEF DEBUG}
  {$I+,OBJECTCHECKS-,Q+,R+,S-}
{$ENDIF DEBUG}
{$IFDEF RELEASE}
  {$I-,OBJECTCHECKS-,Q-,R-,S-}
{$ENDIF RELEASE}

var a,b,s:longint;
    f,g:text;
begin
assign(f,'adunare.in');reset(f);
assign(g,'adunare.out');rewrite(g);
s:=a+b;
write(g,s);
close(f);
close(g);
end.