Cod sursa(job #164857)

Utilizator bogdan005Aldescu Bogdan bogdan005 Data 24 martie 2008 21:38:32
Problema A+B Scor 0
Compilator c Status done
Runda Arhiva de probleme Marime 0.47 kb
{\rtf1\ansi\ansicpg1252\deff0\deflang1033{\fonttbl{\f0\fswiss\fcharset0 Arial;}}
{\*\generator Msftedit 5.41.15.1507;}\viewkind4\uc1\pard\f0\fs20    1. var a,b:longint;  \par
   2.     f:text;  \par
   3. begin  \par
   4.      assign(f,'adunare.in'); reset(f);  \par
   5.      readln(f,a); readln(f,b);  \par
   6.      close(f);  \par
   7.      assign(f,'adunare.out'); rewrite(f);  \par
   8.      writeln(f,a+b);  \par
   9.      close(f);  \par
  10. end.  \par
}