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

 program matematika2;

 uses crt;

  var

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

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

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

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

  if (d<>0) then
    begin
      writeln('w=(x+y-z)/2*x+sqr(y)-x*y*z=',(x+y-z)/d:10:4);
    end
  else
    begin
      writeln('nije dozvoljeno deljenje sa nulom');
    end;


    readln();

  end.