Сделайте карточку по информатике

var

 nm,snm:array of string;

 age:array of integer;

 k,s:integer;

begin

 

 write('Введите общее кол-во студентов - '); readln(k);

 setLength(nm,k); setLength(snm,k); setLength(age,k);

 for var i1:=0 to k-1 do begin

   writeln('[Студент ',i1+1,']');

   write('Имя     - '); readln(nm[i1]);

   write('Фамилия - '); readln(snm[i1]);

   write('Возраст - '); readln(age[i1]);

 end;

 

 for var i2:=0 to k-1 do

   if age[i2]<16 then s:=s+1;

 

 writeln; writeln('Кол-во студентов которым меньше 16 лет = ',s,' человек:');

 for var i2:=0 to k-1 do begin

   if age[i2]<16 then writeln(nm[i2],' ',snm[i2],' ',age[i2],' лет');

 end;

 

end.

Для перевода из двоичной в шестнадцатеричный надо код разделить на тетрады (на группы по 4 цифры):
0101 1101 1000 1010 1010 1111 0010 1010
Если слева недостаточно цифр до тетрады, то слева добавляем нули.
Далее переводим тетрады в шестнадцатеричный код с таблицы:
0000 => 0        0001 => 1        0010 => 2        0011 => 3        0100 => 4
0101 => 5        0110 => 6        0111 => 7        1000 => 8        1001 => 9
1010 => A       1011 => B        1100 => C       1101 => D        1110 => E
1111 => F
0101 1101 1000 1010 1010 1111 0010 1010 = 5D8AAF2A

Для перевода в восьмеричный код делаем аналогично, только на двоичный код делим на группы по 3 цифры:
001 011 101 100 010 101 010 111 100 101 010
И также если не хватает до 3-ех цифр, то слева добавляем нули.
Затем переводим по аналогичной таблице:
000 => 0      001 => 1      010 => 2      011 => 3
100 => 4      101 => 5      110 => 6      111 => 7
001 011 101 100 010 101 010 111 100 101 010 = 13542527452