Какие действия можно совершать с понятиями

3^i = 18

i = 3

ответ. 3 лампочки.

var a,b: string; begin                            cls;   read(a);     b: =a;           write('b')end.           

var

a,m,n,k: real;

begin

readln(m,n,k);

if (m+n+k)< (m*n*k) then 

a: =m+n+k

else

a: =m*n*k;

writeln(a);

end.

var a: array [1..10] of real;

s,i: integer;

begin

  {vvod tablicy}

  for i : = 1 to 10 do

      if a[i]< > 0 then s: =s+1;

  writeln(s);

end.