2# Izracunavanje formule w:=(x+y)/(y/z+3);

 program matematika1;

 uses crt;

  var

    w,d:real;
    x,y,z:integer;
    //   w:=(x+y)/(y/z+3);
  begin

    clrscr();
    writeln('izracunati formulu');
    writeln('w:=(x+y)/(y/z+3)');
    writeln('Unesite promenjive');
    write('x=');readln(x);
    write('y=');readln(y);
    write('z=');readln(z);

  if (y/z+3<>0) then

    begin

      w:=(x+y)/(y/z+3);

      writeln('w=(x+y)/(y/z+3)=',w);

    end

  else

    begin

      writeln('nije dozvoljeno deljenje sa nulom');

    end;

    readln();

  end.