Напишите программу нахождения наименьшего значения среди трех величин: А,В,С.
9 класс / Pascal ​

var a, b, c, min: integer; begin read(a, b, c); if a < b then if a < c then min := a else min := c  else min := b; write('Мин: ', min); end.

или так:

beginReadArrInteger(3).Min.Printend.

Пример работы: