OJ Board

program high_add;

type num=array [0..5000] of integer;
var a,b,c,d:ansistring;
n1,n2,n3:num; ans:array [0..5000] of ansistring;
i:integer;
procedure extract(var k:num;var s:ansistring);
var i,e:integer;
begin
while length(s) mod 4<>0 do
s:='0'+s;
for i:=1 to length(s) div 4 do
val(copy(s,(i-1)*4 ...