Cod sursa(job #1557)

Utilizator denveerBarbu Andrei denveer Data 14 decembrie 2006 08:24:38
Problema A+B Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.48 kb
{\rtf1\ansi\ansicpg1252\deff0\deflang1033{\fonttbl{\f0\fswiss\fcharset0 Arial;}{\f1\fswiss\fcharset238{\*\fname Arial;}Arial CE;}}
\viewkind4\uc1\pard\f0\fs20 Program suma;\par
var a,b,s:integer;\par
     f:text;\par
begin\par
assign(f,'adunare.in');\par
reset(f);read(a);\par
rewrite(f);write(a);\par
read(f,a);\par
close(f);\par
reset(f);read(b);\par
rewrite(f);write(b);\par
read(f,b);\par
close(f);\par
assign(f,'adunare.out');\par
s:=a+b;\par
write(s);\par
end.\f1\par
}