viết chương trình xuất ra 3 chữ cái đầu tiên của tên em bằng các kí tự * lưu ý dùng các chương trình con xuất ra màn hình một chữ cái
2 câu trả lời
uses crt;
var s:string;
procedure insertChar;
var i:longint;
begin
for i:=1 to 3 do s[i]:='*';
write(s);
end;
begin
clrscr;
readln(s);
insertChar;
readln;
end.
