Question

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

Answer 1

var a,b,c,min:integer;
begin
readln(a,b,c);
if a<b then min:=a else min:=b;
if c<min then min:=c;
writeln('min = ',min);
end.

Пример:
2 3 1
min = 1