составьте метод нахождения меньшего из трех значений в паскаль с объяснением

1 вариант:

a, b, c, min: integer;

min:=0;

readln(a, b, c);

if (alt;b) and (alt;c) then min:=a;

if (blt;a) and (blt;c) then min:=b;

if (clt;a) and (clt;b) then min:=c;

writeln(min);

  end.

2 вариант:

Var a:array[1..3] of integer;

i,z:integer;

for i:=1 to 3 do

Readln(a[i]);

z:=a[1];

for i:=2 to 3 do

begin

if a[i]lt;z then z:=a[i];

end;

writeln(z);

end.