Сотрудникам компании выдают электронную карту, на которой записаны их личный код, номер подразделения (целое число от 1 до 1200) и дополнительная информация. Личный код содержит 17 символов и может включать латинские буквы (заглавные и строчные буквы различаются), десятичные цифры и специальные знаки из набора @#$%^&*(). Для хранения кода используется посимвольное кодирование, все символы кодируются одинаковым минимально возможным количеством битов, для записи кода отводится минимально возможное целое число байтов. Номер подразделения кодируется отдельно и занимает минимально возможное целое число байтов. Известно, что на карте хранится всего 48 байтов данных. Сколько байтов занимает дополнительная информация? Вопрос 1. Какова мощность алфавита, используемого для записи кода?Требуется ответ. Многострочный текст. ​

// PascalABC.NET 3.3, сборка 1583 от 25.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a,b,c,d,kn,kp:real;
  Read(a,b,c,d);
  if a>0 then kp+=1 else if a<0 then kn+=1;
  if b>0 then kp+=1 else if b<0 then kn+=1;
  if c>0 then kp+=1 else if c<0 then kn+=1;
  if d>0 then kp+=1 else if d<0 then kn+=1;
  Writeln('Положительных ',kp,', отрицательных ',kn)
end.

Пример
8 -2 0 -4
Положительных 1, отрицательных 2

Для прочих версий языка Паскаль

 var
  a,b,c,d,kn,kp:real;

begin
  Read(a,b,c,d);
  kp:=0; kn:=0;
  if a>0 then kp+=1 else if a<0 then kn+=1;
  if b>0 then kp+=1 else if b<0 then kn+=1;
  if c>0 then kp+=1 else if c<0 then kn+=1;
  if d>0 then kp+=1 else if d<0 then kn+=1;
  Writeln('Положительных ',kp,', отрицательных ',kn)
end.

//Вот программа, которая кодирует слова в системах счисления от 2 до 10
//Первый ввод - число, второй - система счисления
//Pascal ABC.NET v3.0

var
 a,i,b,r,n,j,bug:integer;
 s,se,slo,slof:string;

procedure preob(var a,b,n:integer; var se:string);
 begin
  repeat
   b:=a mod n;
   a:=a div n;
   str(b,se);
   s+=se;
  until (a<=n-1);
 end;

begin
readln(slo);
readln(n);
for j:=1 to length(slo) do
begin;
a:=ord(slo[j]);
preob(a,b,n,se);
str(a,se);
s+=se;
for i:=1 to length(s) div 2 do
begin;
se:=s[i];
s[i]:=s[length(s)-i+1];
s[length(s)-i+1]:=se[1];
end;
write(s,'-');
slof:=slof+s;
delete(s,1,length(s));
end;
end.

//Слово Программа она кодирует как 11001111-11110000-11101110-11100011-11110000-11100000-11101100-11101100-11100000-