MIN CỦA 3 SỐ SỬ DỤNG CHƯƠNG TRÌNH CON

program bai3;
var x,y,z : integer;
function min(a,b,c : integer) : integer;
var S:array[1..3] of integer;
    min1,i :integer;
begin
min1:=a;S[2]:=b ;S[3]:=c;
For i:=2 to 3 do If S[i] < min1 then min1:=S[i];
min:=min1;
end;
begin
Write('Nhap vao 3 so ');readln(x,y,z);
Write('min la : ',min(x,y,z));readln;
end.