Viết chương trình tìm số nhỏ nhất trong 3 số nguyên

program baigiai;
uses crt;
var a,b,c,min,i:longint;d:array[1..3]of longint;
begin
 clrscr;
  write('a=');readln(a);
  write('b=');readln(b);
  write('c=');readln(c);
  d[1]:=a;
  d[2]:=b;
  d[3]:=c;
  min:=d[1];
  for i:=2 to 3 do if(min>d[i])then min:=d[i];
  write('so nho nhat trong ba so la:',min);
 readln;
end.

đây nhé bạn

uses math;
var x,y,z:longint;
begin
write('Nhap vao so thu nhat = ');readln(x);
write('Nhap vao so thu hai = ');readln(y);
write('Nhap vao so thu ba = ');readln(z);
writeln('Gia tri nho nhat = ',min(x,min(y,z)));
readln;
end.