{
   Лабораторна робота #5
   
   Copyright 2013 Viktor Matvieienko <Hetman.Net@gmail.com>
   
   This program is free software; you can redistribute it and/or modify
   it under the terms of the GNU General Public License as published by
   the Free Software Foundation; either version 2 of the License, or
   (at your option) any later version.
   
   This program is distributed in the hope that it will be useful,
   but WITHOUT ANY WARRANTY; without even the implied warranty of
   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
   GNU General Public License for more details.
   
   You should have received a copy of the GNU General Public License
   along with this program; if not, write to the Free Software
   Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
   MA 02110-1301, USA.
   
   
}


program replace;
uses crt;
const a=1.5;
var x : Extended;
var y : Extended;
var b : Extended;
var c : Extended;
var d : Extended;
var e : Extended;
BEGIN
    WriteLn('Run!');
    WriteLn('y=((cos(x))^2-x)/sqrt(a^2+x^2), a=1.5, x=0,0.1..1');
    d:=a*a;
    x:=0;
    while x<1.1 do
        begin
        b:=Cos(x);
        c:=b*b;
        b:=c-x;
        c:=x*x;
        e:=c+d;
        c:=Sqrt(e);
        y:=b/c;
        WriteLn('x=',x:8:5,'    ','y=',y:8:3);
        x:=x+0.1;
        end;
    WriteLn('Stoped!')    
END.

a = pow(2, number_of_lines)/pow(2, 5);
b = ceil(a);
c = number_of_branching/b;
d = ceil(c);
e = b+1;
f = 5*b;
price = pow(e, f)*d;