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.