СОСТАВЬТЕ НЕ МЕНЕЕ ТРЕХ ВАРИАНТОВ ПРОГРАММЫ ОПРЕДЕЛЕНИЯ НАИМЕНЬШЕГО ИЗ ТРЕХ ДАННЫХ ЧИСЕЛ....   Пожалуйста

var   a, b, c, m : integer; begin   read (a, b, c);   m := a;   if b < m then m := b;   if c < m then m := c;   writeln (m); end.   var   a : array [1..3] of integer;   i, m : integer; begin   m := a[1];   for i := 2 to 3 do     if a[i] < m then m := a[i];   writeln (m); end.   var   a, b, c : integer; begin   read (a, b, c);   if (a <= b) and (a <= c) then writeln (a)   else if (b <= c) and (b <= a)  then writeln (b)   else writeln (c); end.