C) Блоктар палитрасы деген не?

блоктар палитарсынын 10 тури бар блоктар деп мына суретте жазылып турган кылкалам және т.б. олоар ар турли тусте болады сол ушин блоктар палитрасы дейді кішкене болсада комектести деген ойдамын суретке карасанда бари тусиникти болады деген ойдамын бирак озмиз барынша коп окып талпыну кажет

var  s: string;   i: longint; begin  readln(s);   for i: =length(s) downto 1 do  begin  if s[i]=' ' then delete(s,i,1);   if (s[i]> ='1')and(s[i]< ='9') then delete(s,i,1);   end;   writeln(length(s)); end.

var s,s1: string; n,i: integer; begin readln(s); readln(n); for i: =1 to n do begin insert(s[1],s1,length(s1)+1); delete(s,1,1); end; s: =s+s1; writeln(s); end.