unsigned char str[100];
unsigned char tempbuf[800];
unsigned char buf[10];
unsigned char rezult[100];
int i,j,k;
unsigned long l;

strcpy(str,"Bugtrack for guru!!!!");
for(i=0;*(str+i)!=0;i++)
{
    itoa(*(str+i),buf,2);
    for(j=0;j<8-strlen(buf);j++)
      strcat(tempbuf,"0");
    strcat(tempbuf,buf);
}
for(i=0,j=0,buf[7]=0;*(tempbuf+i)!=0;i+=7,j++)
{
     memmove(buf,tempbuf+i,7);
     rez[j]=(unsigned char )strtoul(buf,0,2);
}

uses
  Crt;

const
 a=20.3;
  var
   f,x:real;
   res_sin,arg_sin:real;

function Log(x, b: Real): Real;
 begin
   Result := ln(x) / ln(b);
 end;

function Rus(mes:string):string;
 var
   i:integer;
begin
   for i:=1 to length(mes) do
     case mes[i] of
       'А'..'п': mes[i]:=Chr(Ord(mes[i])-64);
       'р'..'я': mes[i]:=Chr(Ord(mes[i])-16);
     end;
  rus:=mes;
end;

begin
{Первая задача}
 writeln('=======================================================');
 write(rus('Введите значение аргумента : '));readln(x);
  if x>1 then f:=log((x+1),10)
 else
  f:=sqr(sin(sqrt(abs(a*x))));
  write(rus('Значение функции : '));writeln(f);
{Вторая задача}
 arg_sin:=0.1;
 res_sin:=(1+sin(arg_sin));
  while arg_sin<9.9 do
   begin
   arg_sin:=arg_sin+0.1;
   res_sin:=res_sin*(1+sin(arg_sin));
   end;
 writeln('=======================================================');
 write(rus('Вычисление прогресии : ')); Write(rus('Ответ : ')); Writeln(res_sin);
 writeln('=======================================================');
  readln;
end.

function Log(x, b: Real): Real;
 begin
   Log := ln(x) / ln(b);
 end;

int a[8];
void step(int cur)
{
   int i,j,fl;
  if(cur<8)
  {
   for(i=0;i<10;i++)
   {
      for(j=0,fl=0;j<cur && fl==0;j++)
       if(a[j]==i)
         fl=1;
       if(fl==0)
       {
          a[cur]=i;
          step(cur+1);
       }
   }
  }
  else
  {
    if(1000*a[0]+100*a[1]+10*a[2]+a[3]+1000*a[4]+100*a[5]+10*a[6]+a[1]==10000*a[4]+1000*a[5]+100*a[2]+10*a[1]+a[7])
    {
       // тут вываливай результат ... он в массиве
    }
  }
}