program minval;
var
n1, n2, n3;
begin
writeln('Scrieti valoarea lui n1: ');
readln(n1);
writeln('Scrieti valoarea lui n2: ');
readln(n2);
writeln('Scrieti valoarea lui n3: ');
readln(n3);
if (n1 < n2) and (n1 < n3)
then
writeln(n1);
else if(n2 < n1) and (n2 < n3)
then
writeln(n2);
else if(n3 < n1) and (n3 < n2)
then
writeln(n3);
readln;
end;