program NhapHaiSo;

var a, b: integer;

begin

  // Hiển thị thông báo yêu cầu người dùng nhập số a

  write('Nhap so a: '); 

  readln(a); 

  // Hiển thị thông báo yêu cầu người dùng nhập số b

  write('Nhap so b: '); 

  readln(b);

  // Hiển thị giá trị của a và b

  writeln('Ban vua nhap a = ', a);

  writeln('Ban vua nhap b = ', b);

  readln;

end.

Uses crt;
Var a,b: Longint;
BEGIN
     Write('Nhap a:');  Readln(a);
     Write('Nhap b:');  Readln(b);
END.