Что отличало поросят из сказки три поросенка

1) возраст

2)трудолюбие

3)ум

4)имена

5)хитрость

у них были разные имена, разные дома, и все по разному мыслили

program mdd; uses crt; var i: longint; beginclrscr; for i: = 10 to 99 dobeginif i mod 13 = 0 then writeln(i); end; readkey; end.

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.