12012(с основанием 3)= 140 (с основанием 10)
10302(с основанием 4)= 306 (с основанием 10)
140+306=446
446 (с основанием 10) = 1BE (с основанием 16)
Решение - в прилагаемом файле (Лист1 и Лист2).
Var a,s:integer;
begin
writeln ('Введите целое число');
a:=1;
while a<>0 do
begin
readln (a);
s:=a+s;
end;
writeln ('Сумма всех введенных чисел = ', s);
<span>end.</span>
Program pr;
uses crt;
Var a,b,c,d:real;
Begin
Writeln('vv 4 chisla');
readln(a);
readln(b);
readln(c);
readln(d);
if (a=999) or (b=999) or (c=999) or (d=999) then Writeln('a=',a,' b=',b,' c=',c,' d=',d)
else Writeln('sum=',c+d);
readln;
end.