a156bc
s = 123456
q = abc
delete (s,2,3) = 156
(/// Удаляет из строки s count символов с позиции index
procedure Delete(var s: string; index, count: integer);)
insert (s,q,2) = a156bc
(/// Вставляет подстроку source в строку s с позиции index
procedure Insert(source: string; var s: string; index: integer);)
Читаем N
считаем кол-во в каждом слою и выводим на экран
считаем кол-во всего и выводим на экран
Антивирус, джаву если есть, и все по идее