Power supply [a] ALU
[a] ROM
[a] HDD
[a] RAM
[a] Register
[a] Control unit
[a] Motherboard

А-Я (33 символа), символы русского алфавита
2) 36 согласных звуков: [б], [б'], [в], [в'], [г], [г'], [д], [д'], [ж], [з], [з'], [й'], [к], [к'], [л], [л'], [м], [м'], [н], [н'], [п], [п'], [р], [р'], [с], [с'], [т], [т'], [ф], [ф'], [х], [х'], [ц], [ч'], [ш], [щ'] 
6 гласных звуков: [а], [у], [о], [ы], [и], [э], звуковые фонемы русского языка
3) A-Z (26 символов), символы латинского алфавита
4) 0123456789, символы арабской записи цифр
5) аденин (А), гуанин (G), цитозин (С), тимин 
(T), азотистые основания участвующие в формировании дизоксирибонуклеиновой кислоты
6) 01, сигнал низкого и высокого напряжения используемый для передачи данных

Var
  z, s: real;
  n, p: integer;

begin
  Write('Введите размер оплаты труда: ');
  Readln(z);
  Write('Лицензия первичная (1) или повторная (2)? ');
  Readln(p);
  Writeln('На сколько лет выдается лицензия?');
  Writeln('0 - до года, 1 - 1-2 года, 2 - 2-3 года,');
  Write('3 - 3-4 года, 4 - 4-5 лет: ');
  Readln(n);
  case n of
    0: s := 0.3 * z;
    1: s := 0.4 * z;
    2: s := 0.5 * z;
    3: s := 0.6 * z;
    4: s := 0.7 * z;
  else s := 1e9
  end;
  if p = 2 then s := 0.2 * s;
  Writeln('Сумма лицензионного сбора составит ', s:0:2)
end.

Тестовое решение:

Введите размер оплаты труда: 26400
Лицензия первичная (1) или повторная (2)? 1
На сколько лет выдается лицензия?
0 - до года, 1 - 1-2 года, 2 - 2-3 года,
3 - 3-4 года, 4 - 4-5 лет: 2
Сумма лицензионного сбора составит 13200.00