Program 1
var
a1, a2, a3, min, sum: integer;
begin
write('Trei numere: ');
readln(a1, a2, a3);
sum := a1 + a2 + a3;
if a1 <= a2 then
min := a1
else
min := a2;
if a3 < min then
min := a3;
writeln('Suma=', sum);
writeln('Minimum: ', min);
end.
Program 2
Var n,pr:integer;
Begin
write('Numar de 4 cifre: ');readln(n);
pr:=(n mod 10)*(n div 10 mod 10)*(n div 100 mod 10)*(n div 1000);
writeln('Produsul cifrelor: ',pr);
End.