Упростите пожалуйста эту прогу по информатике, работаем в Pascal.
Надо найти минимальное из 3 чисел)

Короче вряд ли напишут, если без последовательностей. А с ними можно: begin ReadSeqReal(3).Min.Println end. - и это все.

Спасибо тебе, чел

// PascalABC.NET 3.4.2, сборка 1814 от 02.10.2018// Внимание! Если программа не работает, обновите версию!

begin

 var (a, b, c) := ReadReal3;

 Min(Min(a, b), c).Println

end.