Составьте программу рисования прямоугольной рамки вдоль края поля при любом начальном состоянии

2.5 кбайт = 2560 -байт = 20480 бит

20480 : 2560  = 8

ответ: 8 минут.

вроде както так..

var ch,n,i: longint;

ch1,s: string;

begin

  read(s,ch);

  n: =length(s);

  writeln(n,' ',ch);

  str(ch,ch1);

  for i: =1 to n do if s[i]=ch1 then write(i,' ');

end.