program keo_bua_bao;
uses crt;
var a,q,w,n:integer;
b,c,f,s:string;
begin
clrscr;
a:=1;
writeln('Tac gia Truong Dinh Quang');
writeln('Xin chao! Choi ngay thoi!!!');
write('Nhan 1 de choi ');
readln(n);
if n=1 then
begin
while a=1 do
begin
clrscr;
writeln('Ban chon gi?');
writeln('1: keo')...