Good shit prog

program lab1v17b;
USES CRT;
var x, y, k:real;
var h, q, f, t, n:real;
begin
clrscr;

writeln('Введите Х:');
readln(x);
writeln('Введите Y:');
readln(y);
writeln('Введите K:');
readln(k);

if (k*x)=0 then begin
   writeln('Делить на 0 нельзя! Введите другие числа!');
   writeln('Для продолжения нажмите ENTER...');
   readln();
   exit;
   end;

t:=ARCTAN(1/(k*x));

if t<=0 then begin
   write('Невозможно посчитать натуральный логарифм!');
   if (k>0) and (x<0) then
      writeln('Введите другое значение Х!');
   if (k<0) and (x>0) then
      writeln('Введите другое значение K!');
   writeln('Для продолжения нажмите ENTER...');
   readln();
   exit;
   end;

q:=ln(t);

if y<0 then
   h:=EXP(LN(ABS(8*y))/3)
   else
      if y>0 then
         h:=exp(ln(y*8)/3)
         else
            h:=0;

if y<0 then
   n:=-h
   else
      n:=h;

f:=n-(PI)*q;

writeln('F=', f:5:5);
readln();
end.