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
Giúp mình với mình khumm biết làm :((
uses crt; var i:longint; s:string; procedure p(s:char); begin write(s); end; begin clrscr; write('Nhap ten em: ');readln(s); p('*'); p('*'); p('*'); for i:=4 to length(s) do p(s[i]); readln end.