Verified answer

begin

 var a, b, c, d: integer;

 d := 0;

readln(a, b, c);

if a < c then d := a;

if b < c then a := b;

d := d + a;

write(d);

end.