В первой строке содержится целое число n(1<n<10в 15 степени). Найти наибольшее целое число k, при котором выполняется неравенство 3 в степени k <n​

1 a)
var
  a: integer;

begin
  readln(a);
  if a mod 2 = 0 then
    println('da')
  else println('net');
end.

1 б)
var
  a: integer;

begin
  readln(a);
  if a mod 10 = 7 then
    println('da')
  else println('net');
end.

2 а
var
  a: integer;

begin
  readln(a);
  if (a div 10+a mod 10) mod 3 = 0 then
    println('da')
  else println('net');
end.

2 б
var
  n,a: integer;

begin
  writeln('Введите число');
  readln(n);
  writeln('Введите a');
  readln(a);
  if (n div 10+n mod 10) mod a = 0 then
    println('da')
  else println('net');
end.

Const
  Rn : String[36] = '0123456789';

Function DecToN(a : Longint; Raz : Byte) : String;
Begin
  If a>Raz-1 then DecToN:=DecToN(a div Raz,Raz)+Rn[(a mod Raz)+1]
  else DecToN:=Rn[a+1];
end;

Function NToDec(a : String; Raz : Byte) : Longint;
Begin
  If Length(a)>0 then NToDec:=Pos(a[Length(a)],Rn)-1+Raz*NToDec(Copy(a,1,Length(a)-1),Raz)
  else NToDec:=0;
end;

Var a,b : String;
Begin
  a:='1011'; b:='110';
  Writeln('a = ',a,' (bin) = ',NToDec(a,2),' (dec)');
  Writeln('b = ',b,' (bin) = ',NToDec(b,2),' (dec)');
  Writeln(a+'+'+b+' = ',DecToN(NToDec(a,2)+NToDec(b,2),2),' (bin)  ',NToDec(a,2)+NToDec(b,2),' (dec)');
  Writeln(a+'-'+b+' = ',DecToN(NToDec(a,2)-NToDec(b,2),2),' (bin)  ',NToDec(a,2)-NToDec(b,2),' (dec)');
  Writeln(a+'*'+b+' = ',DecToN(NToDec(a,2)*NToDec(b,2),2),' (bin)  ',NToDec(a,2)*NToDec(b,2),' (dec)');
end.