• Source
    1. program ideone;
    2. var a: byte;
    3. begin
    4. Writeln('Xin chào các bạn !');
    5. writeln('Nhap gia tri a: ');
    6. readln(a);
    7. writeln('Gia trị a là:',a);
    8. end.