даны 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