Для чего в оперативной памяти есть шифр расшифровать.​

всего длина окружности составляет 2пr, а половина - пr

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 kol,a,b,c: longint;

begin

  read(a,b,c);

  if a< 0 then kol: =kol+1;

  if b< 0 then kol: =kol+1;

  if c< 0 then kol: =kol+1;

  write(kol);

end.

фефраль-месяц зимы; май-месяц весны; август-месяц лета; сентябрь-месяц осени