Var
a,b,c:integer;
begin
Writeln('Введите три целых числа: '); Read(a,b,c);
Write('Их сумма равна ',a+b+c);
Write(', минимальное число ');
if a if a else
if bend.
Тестовое решение
Введите три целых числа:
-5 -12 8
Их сумма равна -9, минимальное число -12