Uses crt;
Var xau_ki_tu: string;
Begin
        Clrscr;
        Write('Hay nhap gia tri cho c: '); Readln(xau_ki_tu);
        Write('Xau ki tu ban vua go la: '); Writeln(xau_ki_tu);
        Readln;
End.

uses crt;

// Khai báo thư viện crt

var xau_ki_tu : string;

// Khai báo biến xau_ki_tu kiểu xâu kí tự

begin

// Bắt đầu thân chương trình

clrscr;

// Lệnh xoá màn hình

write('Hay nhap gia tri cho c : '); Readln(xau_ki_tu);

// In xâu 'Hay nhap gia tri cho c :' và nhập giá trị cho xau_ki_tu

write('Xau ki tu ban vua go la : '); Writeln(xau_ki_tu);

// In xâu 'Xau ki tu ban vua go la : ' và giá trị xau_ki_tu 

readln;

// Dừng chương trình

end.

// Kết thúc