Cod sursa(job #1036999)

Utilizator Alex1199Alex Bercea Alex1199 Data 19 noiembrie 2013 20:10:36
Problema A+B Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.29 kb
Raporteaza aceasta sursa 
Program Adun;  Uses Crt;
 Var A, B : Integer;
        C : Longint;
        F, G : text;
Begin    Clrscr;
   Assign(G,'adunare.in.txt');
     Reset(g);
     Readln(G, a, b);
   Close(G);
  C:=A+b;
  Assign(F,'adunare.out.txt');
   Rewrite(F);
     Write(F,C);
  Close(F);
 Readkey;
End.