var
s: string;
i,start,j: integer;
begin
start:= ord(A);
s:= A;
for i:= 2 to 8 do begin
s:= s+s+char(start+1);
inc(start);
if i=8 then for j:= 10 to 15 do write(s[j])
end
end.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.