Minimum dintre doua numere:
var
a,b:integer;
min:integer;
begin
writeln('Introduce-ti doua valori:');
readln(a,b);
if a<b then
min:=a
else
min:=b;
writeln('Minimum dintre a si b= ', min);
end.
Minimum din mai multe numere:
begin
write('Introduce-ti un numar n (n>0): ');
var n := ReadInteger;
assert(n>0);
write('Introduce-ti primul numar: ');
var x :=ReadReal;
var min := x;
for var i := 2 to n do
begin
write('Introduceti ',i,',numar: ');
x := ReadReal;
if min > x then
min :=x ;
end;
writeln('Minimum din numerele introduse: ', min);
end.
