Em đang gấp ạ😭😭😭😢😢😢
Viết chương trình Pacsal thực hiện các việc sau: Nhập một sâu từ bàn phím.Tạo ra sâu chữ hoa tương ứng vs sâu đã nhập. Viết sâu chữ hoa đã tạo được ra trên màn hình
program oken; uses crt; var s: string; i: byte; begin clrscr; write('Nhap xau: '); readln(s); for i:=1 to length(s) do s[i]:= upcase(s[i]); writeln('Xau in hoa: ',s); readln; end.