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

Женя

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