Составьте не менее трех вариантов программы определения наименьшего из трех данных

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.

function max (x,y : longint) : longint; begin  if x> y then max: =x else max: =y; end; var k : longint; s : string; begin  readln(s);   while (pos('.',s)< > 0)or(pos('! ',s)< > 0)or(pos('? ',s)< > 0) do

begin    k: =k+1;

    delete(s,max(max(pos('.',s),pos('! ',('? ',); end;   writeln(k); end.

а)сумм(a5: b7)

б)срзнач(c4: c7)