à, bài này mk bik nè
Program So_Lon_Nhat;
uses crt;
var a,b,c:integer;
Begin
Writeln(' Nhap 3 so nguyen:');
Readln(a,b,c);
if (a>b) and (a>c) then write(' a la so lon nhat');
if (b>a) and (b>c) then write('b la so lon nhat');
if (c>a) and (c>b) then write('c la so lon nhat')
else write(' khong co so nao lon nhat');
Readln;
End.
Vì pascal ko vik dấu dc nên ỡ đây mk cx ko vik dấu ^^ tự hỉu nha ^^