Cod sursa(job #566751)

Utilizator kindakinda assfour kinda Data 29 martie 2011 11:43:59
Problema A+B Scor 100
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.38 kb
Raporteaza aceasta sursa 
{$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);
readln(f,a);
readln(f,b);

s:=a+b;
write(g,s);
close(f);
close(g);
end.