Question

Elaborați un program care determina numărul minim dintre numere reale x,y,z valoare cărora este citită de la tastatură

Answer 1

Minimum din trei numere Pascal:

var  

  x,y,z,min:real;

begin

     write('Numere:');

     readln(x,y,z);

     if x<z then

     min:=x

     else  

     min:=z;

     if min<y then

     writeln('Minimum exte:',min)

     else  

     writeln('Minimum este:',y);

end.