Răspuns:
program minimDin4;
var a,b:real;
begin
write('a='); read(a);
write('b='); read(b);
if b<a then a:=b;
write('c='); read(b);
if b<a then a:=b;
write('d='); read(b);
if b<a then a:=b;
writeln('numarul minim: ',a);
end.
Explicație:
am folosit numai 2 locatii de memorie.
a pentru minim
b variabila de lucru
La fiecare introducere a noii valori se actualizeaza minimul