Число f16 соответствует числу в десятичной системе счисления

16 это шестадцатиричная система? если да то f=15 a=10, b=11 c=12 d=13 e=14

Program   bolatkabylov; uses crt; const n=4; const m=5; var   s: string;       i,j,min: integer;   a: array[1..n,1..m] of integer;   b: array[1..m] of integer; begin   s: ='*** alphaeus is ***';   for i: =1 to length(s) do begin   write(s[i]);   for j: =1 to 500000 do s[i]: =s[i];   end;   writeln();   writeln('***           ok             ***');   writeln();   writeln('для заданного массива а размерности 4х5 сформировать одномерный массив в, ');   writeln('элементами которого будут минимальные элементы в  каждом столбце массива а.');   randomize;   writeln();   writeln('массив а: ');   //заполняем массив а случайными числами и выводим его     for i: =1 to n do  begin     for j: =1 to m do     begin       a[i,j]: =random(100)-50;       write(a[i,j]: 4,' ');     end;     writeln();   end;   //находим минимальные элементы в каждом столбце и сохраняем в массив в   for j: =1 to m do  begin     min: =a[1,j];     for i: =1 to n do     begin       if a[i,j]< min then min: =a[i,j];     end;     b[j]: =min;   end;   //выводим массив в   writeln();   writeln('mассив b: ');   for j: =1 to m do     write(b[j]: 4,' '); end.

Var a: string; b,c,v,s: byte; begin b: =0; c: =0; writeln('введите строчку'); readln (a); repeat   inc (b);   if (a[b]=' ') or (b=length(a)) then   begin   inc (c);   if (c=1) then   v: =b;   if c=2 then   begin   if (b=length(a)) then   delete(a,v,b-v+1)   else   delete(a,v,b-v);   b: =b-(b-v);   c: =0;   end;   end   else continue; until b> length(a) ;   writeln(a); readln; end. это вот программа по подсчёту пробелов. эту давно писал, а сейчас занят, поэтому только идею