Программирование на Pascal / Delphi / Лабораторные работы3 / Лабораторная работа 1 / LAB1_1

{Lab 1_1}
uses Crt;
var
   p, x, y, b: real;
   f: text;
begin
   assign (f, 'lab1_1.txt');
   rewrite (f);
   clrscr;
   x:=25; y:=15;
   p:=((ln(x)/ln(10))-exp(x+y))/(sqrt(2)+sqr(y)+abs((exp(3*ln(x))-ln(y))));
   writeln ('p=', p:4:3);
   writeln (f, 'p=', p:4:3);
   writeln (f);
   b:=0;
   if (x-y)=0 then b:=ln(x/y)+exp(3*ln(sqr(x)+y));
   if (x-y)>0 then b:=ln(abs(x*y))+exp(3*ln(sqr(x)+y));
   if (x-y)<0 then b:=exp(3*ln(sqr(x)+y));
   writeln ('b=', b:8:3);
   writeln (f, 'b=', b:8:3);
   close (f);
end.