program soLonHon;
var
  a, b, max: integer;
begin
  writeln('Nhap vao hai so a, b:');
  readln(a, b);
  if a > b then
    max := a
  else
    max := b;
  writeln('So lon hon la: ', max);
end.

Trong chương trình trên, chúng ta sử dụng câu lệnh if...then...else để so sánh giá trị của hai số a và b. Nếu a lớn hơn b thì gán giá trị của a cho biến max, ngược lại gán giá trị của b cho max. Cuối cùng, in ra giá trị của max bằng lệnh writeln.