Переведите число 1A, C13 в десятичную систему счисления. (При необходимости округлите до 2 знаков после запятой)

иванов - парикмахер

петров - плотник

сидоров - мельник

гришин - почтальон

алексеев маляр

данное слово - центрирование

var a, b, c: integer;

begin

write('a='); readln(a);

write('b='); readln(b);

write('c='); readln(c);

if a < b then if a < c then writeln(a, ' - меньшее') else writeln(c, ' - меньшее') else if b < c then writeln(b, ' - меньшее') else writeln(c, ' - меньшее'); end.

var h,a: integer;

begin

  a: =1;

  repeat

      h: = h+3;

      a: =2*a;

      writeln('прошло часов - ',h,', амеб - ',a)

  until h> =30;

  readln;

end.