СОСТАВЬТЕ НЕ МЕНЕЕ ТРЕХ ВАРИАНТОВ ПРОГРАММЫ ОПРЕДЕЛЕНИЯ НАИМЕНЬШЕГО ИЗ ТРЕХ…

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.