Var a: array [1..5] of integer;
begin
readln(a[1],a[2],a[3],a[4],a[5]);
write(a[1],',',a[2],',',a[3],',',a[4],',',a[5])
end.
12) a) 89-1011001
b)600-1001011000
c)2010-11111011010
13)a)513-1001
b)600-1130
c)2010-3732