Решите !
сотрудникам компании электронную карту, на которой записаны их личный код, номер подразделения (целое число от 1 до 1200) и дополнительная информация. личный код содержит 17 символов и может включать латинские буквы (заглавные и строчные различаются), десятичные цифры и специальные знаки из набора @#$%^& * для хранения кода используется посимвольное кодирование, все символы кодируются одинаковым минимально возможным количеством битов, для записи кода отводится минимально целое число байтов. номер подразделения кодируется отдельно и занимает минимально возможное целое число байтов. известно, что на карте хранится всего 48 байтов данных. сколько байтов занимает дополнительная информация? ​

var

  i,n,a: integer;

begin

  readln(n);

for i: =1 to n do

begin

  read(a);

if (a mod 3=0)and(a mod 5> 0) then write(a,' ');

end;

writeln;

end.

program a1; const n=20; var c: array [1..100] of integer; var i,k: integer; begink: =0; for i: =1 to n do beginc[i]: =random(101)-50; {заполнение массива произвольно от -50 до 50}write(' ',c[i]); {вывод массива на экран}end; for i: =2 to n doif c[i]< c[i-1] then k: =k+1; {сравнение элемента с предыдущим и счет  элементов которые меньше}writeln; writeln('количество элементов=',k); end.

я так понимаю нужно нарисовать рисунки рыб, карасей и различных животных. множества нужно перекрестить(множество рыб и хищ. животных), так как рыба тоже может быть хищником

строку наоборот?

var s: string;

i: integer;

begin

  read(s);

  for i: = length(s) downto 1 do

        s1: = s1+s[i];

  writeln(s1);

end.