Даны 3 числа a,б,с, найти сумму а,б,с min из трех,

Var
  a,b,c:integer;
begin
  Writeln('Введите три целых числа: '); Read(a,b,c);
  Write('Их сумма равна ',a+b+c);
  Write(', минимальное число ');
  if a<b then
    if a<c then Writeln(a) else Writeln(c)
  else
    if b<c then Writeln(b) else Writeln(c)
end.

Тестовое решение
Введите три целых числа:
-5 -12 8
Их сумма равна -9, минимальное число -12