Я понял ,значит у моря он был 1/2 отпуска,в деревне 1/4 отпуска да ещё 3+3дня
значит 1/4 отпуска это 6 дней
а весь отпуск 6*4=24 дня
132(10)=<span>10000100(2)
132(10)=24(8)
132(10)=84(16)
43(8)=</span><span>100011(2)
43(8)=35(10)
1AB(16)=</span><span>110101011(2)
1AB(16)=427(10)
</span>
Б..........................................
Готово, даже удалось избежать создания самого массива)
Program z6; Var a: array [1..10] of string; i,j,l:integer; s,g,s_2:string;Begin write('Введите строку - '); readln(s); l:=s.Length; i:= 1; j:= 1; while i <= l do begin while (s[i] <> ' ') and (i <= l) do begin a[j]:=a[j] + s[i]; i:= i + 1; if (i > l) then break; end; j:= j + 1; i:= i + 1; end; i:= 1; while (a[i] <> '') do begin g:=a[i]; g[1]:= (Upcase(g[1])); s_2:= s_2 + g + ' '; i:= i + 1; g:=''; end; writeln(s_2);End.