Viết chương trình pascal tìm số nhỏ nhất của 3 số nguyên a,b Ae giả giúp mình vs ạ

program bai_giai;
uses crt;
var a,b,c,n:integer;
begin
    clrscr;
    readln(a,b,c);
    n:=a;
    if b<n then n:=b;
    if c<n then n:=c;
    write(n);
    readln;
end.

3 số thì phải là a, b, c chứ nhỉ?

---

Program BTT;
Uses crt;
Var a,b,c,min: longint;
Begin
        Clrscr;
        Write('Nhap so a: '); Readln(a);
        Write('Nhap so b: '); Readln(b);
        Write('Nhap so c: '); Readln(c);
        min:=a;
        If b<min then min:=b;
        If c<min then min:=c;
        Write('GTNN la: ',min);
        Readln
End.