Cod sursa(job #557697)
Utilizator | Data | 16 martie 2011 19:46:53 | |
---|---|---|---|
Problema | A+B | Scor | 100 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.23 kb |
var
a,b,suma : integer;
cow, ko : text;
begin
assign ( cow, 'adunare.in'); reset( cow );
assign (ko, 'adunare.out' ); rewrite ( ko );
read (cow, a , b );
suma:= a+b;
writeln (ko, suma);
close(cow); close(ko);
end.