Лабы / Pascal.1.курс / part 1 / variant 13 / lab4ex1

Program ex1;
Uses crt;
Var x,a,b,g:real;
Begin
Textbackground(cyan);
Clrscr;
Window(10,5,40,10);

Textbackground(Lightgreen);
Clrscr;
Textcolor(black);
GoToXY(14,3);
Write('X=');
ReadLn(x);
GoToXY(14,4);
Write('A=');
ReadLn(a);
GoToXY(14,5);
Write('B=');
ReadLn(b);
Window(40,15,70,20);

TextBackGround(magenta);
Clrscr;
TextColor(yellow);
if a>exp(b) Then begin
G:=ln(sqrt(sqr((ln(2*sqr(a)*x*x*x*x))/ln(10))+exp(b*x)));
WriteLn('‚лзЁб«Ґ­Ёп Ї® ўҐае­Ґ© д®а¬г«Ґ');
WriteLn('G=',g:10:7);
End

Else begin
G:=sqr(sqr((sin(b*x+4))/cos(b*x+4)))*sin(a*x+b);
WriteLn('‚лзЁб«Ґ­Ёп Ї® ­Ё¦­Ґ© д®а¬г«Ґ');
WriteLn('G=',g:10:7);
End;
ReadLn;
end.