Cod sursa(job #274255)
Utilizator | Data | 9 martie 2009 16:11:22 | |
---|---|---|---|
Problema | A+B | Scor | 100 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.27 kb |
var a,b,c:longint;z1,z2:text;
procedure sclav;
begin
assign (z1,'adunare.in');
reset (z1);
readln (z1,a,b);
close (z1);
c:=a+b;
end;
procedure infect;
begin
assign (z2,'adunare.out');
rewrite (z2);
write (z2,c);
close (z2);
end;
BEGIN
sclav;
infect;
END.