Var s,t:string;
begin
s:=ИНФОРМАТИКА;
t:=copy(s,3,5);
writeln(t)
end.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.