program ReplaceMinWithSum;
vara, b, c, min: integer;
beginwriteln('Enter three different integers: ');readln(a, b, c);
min := a;
if (b < min) thenmin := belse if (c < min) thenmin := c;
if (a = min) thena := b + celse if (b = min) thenb := a + celsec := a + b;
writeln('New values: ');writeln('a = ', a);writeln('b = ', b);writeln('c = ', c);end.
program ReplaceMinWithSum;
var
a, b, c, min: integer;
begin
writeln('Enter three different integers: ');
readln(a, b, c);
min := a;
if (b < min) then
min := b
else if (c < min) then
min := c;
if (a = min) then
a := b + c
else if (b = min) then
b := a + c
else
c := a + b;
writeln('New values: ');
writeln('a = ', a);
writeln('b = ', b);
writeln('c = ', c);
end.