Mình xài C+ á, Pascal hình như vẫn được đó :)

Program Bt1;

Uses crt;

Var a,b,c:real;

Begin

Clrscr;

Write ('nhap a=');

Readln (a);

Write ('nhap b=');

Readln (b)

Write ('nhap c=');

Readln (c);

If a>b Then

 If a>c Then

Write ('Ket qua:',a,b,c :6 :2') [Bạn nên nhớ là trước Else không có chấm phẩy]

Else write ('So lon nhat la');

Readln;

End.

Program BTT;
Uses crt;
Var a,b,c,max: longint;
Begin
        Clrscr;
        Write('Nhap a, b, c: '); Readln(a,b,c);
        max:=a;
        If b>max then max:=b;

        If c>max then max:=c;

        Write('Max = ',max);

        Readln
End.