Cod sursa(job #274255)

Utilizator PixelatedNinjaSatan von Lucifer PixelatedNinja 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.