Var s: int64;begins:=1;for var i:=10 to 20 dos:=s * i;write(s);end.
Вводим переменную summ типа int в которой будет записан конечный результат(то есть сколько потребуется нажатий пера).
Считаем строку из исходного файла в переменную stroka типа string.Посимвольно считываем со строки string символы и прибавляем к переменной summ.Переключение регистра или языка тоже суммируется в той же переменной.Если необходимо переключить регистр ,то нужно выбрать переключать его на всё время, или только на следующие касание.Чтобы выбрать проверим сколько букв далее стоят с одним регистром.Если 2 и более последущих букв стоят в одном регистре, то будем использовать Caps Lock т.к в результате потребуется меньше нажатий пера ,чем при использование Shift.
По коду символа будем определять его регистр и принадлежность к какому либо языку.
N = 164 ~ 2^8 = 256 т.к. берём по максимуму => I = 8
480/8 = 60 символов