2# Izracunavanje formule w=(x+y-2)/2*x+sqr(b)-x*y*z;

 program matematika2;

 uses crt;

  var

    w,d:real;
    x,y,z,b:integer;
    //w=(x+y-2)/2*x+sqr(b)-x*y*z;
  begin

    clrscr();
    writeln('izracunati formulu');
    writeln('w=(x+y-2)/2*x+sqr(b)-x*y*z');
    writeln('Unesite promenjive');

    write('x=');readln(x);
    write('y=');readln(y);
    write('z=');readln(z);
    write('b=');readln(b);

    d:=2*x+sqr(b)-x*y*z;


  if (d<>0) then

    begin

      writeln('w=(x+y-2)/2*x+sqr(b)-x*y*z=',(x+y-2)/d);

    end

  else

    begin

      writeln('nije dozvoljeno deljenje sa nulom');

    end;


    readln();

  end.