Разработайте и запишите программу нахождения минимума из трёх вводимых целых чисел a, b, c. Проверьте полученную программу на следующих тестах (1, 2, 3);
(3, 2, 1); (2, 3, 1); (1, 3, 2)

var a,b,c,min:integer;beginreadln(a,b,c);if a<b then min:=a else min:=b;if c<min then min:=c;writeln('min = ',min);end.Пример:2 3 1min = 1