Cod sursa(job #265021)
Utilizator | Data | 23 februarie 2009 09:31:02 | |
---|---|---|---|
Problema | A+B | Scor | 100 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.22 kb |
var A, B, C : longint;
fi, fo : text;
Begin
assign(fi,'adunare.in'); reset(fi);
assign(fo,'adunare.out'); rewrite(fo);
readln(fi, A, B);
C := A + B;
writeln(fo, C);
close(fi);
close(fo);
End.