Câu 1:
program bo_dau_cach;
uses crt;
var s:string;
i:byte;
begin
clrscr;
write['Nhap xau: ']; readln[S];
i:=1;
while i
Câu 1:
program bo_dau_cach;
uses crt;
var s:string;
i:byte;
begin
clrscr;
write['Nhap xau: ']; readln[S];
i:=1;
while i