program a_4_1_1;
uses crt;
var
       n,m:integer;
	x,y,a,b,c,d,t,p,t1,t2:real;
      function  z(c,d,p:real):real;
	  begin
  	    z:=exp(p*ln(1+c*d+c/d+d/c));
          end;
begin
 clrscr;;
 write('vvedite a, a=');
 readln(a);
 writeln;
 write('vvedite b, b=');
 readln(b);
 writeln;
 write('vvedite x, x=');
 readln(x);
 writeln;
 write('vvedite y, y=');
 readln(y);
 writeln;
 write('vvedite p, p=');
 readln(p);
 t1:=z(x,y*y,p);
 t2:=z(a,b,p);
 t:=t1-(t2/2);
 writeln;
 writeln;
    textcolor(yellow);
  For m:= 2 To 13 Do Begin
    Write('.');
    Delay(30000);
    End;
    textcolor(green);
    writeln;
    writeln;
    writeln('ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿');
    writeln('³ t=',t:5:0   ,'      ³');
    writeln('ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ');
 readkey;
end.