Bài 1:

program oken;
uses crt;
var s: string[15];
    i:byte;
begin
    clrscr;
    write('Nhap 1 xau: '); readln(s);
    writeln('In moi ki tu 1 dong: ');
    for i:=1 to length(s) do
        writeln(s[i]);
    readln;
end.

Bài 2: 

program oken;
uses crt;
var s: string;
    i,hoa,thuong,so:byte;
begin
    clrscr;
    write('Nhap 1 xau: '); readln(s);
    for i:=1 to length(s) do
        if s[i] in ['A'..'Z'] then
            hoa:=hoa+1
        else 
            if s[i] in ['a'..'z'] then
                thuong:=thuong+1
        else so:=so+1;
    writeln('So ki tu la chu hoa: ',hoa);
    writeln('So ki tu la chu thuong: ',thuong);
    writeln('So ki tu la chu so: ',so);
    readln;
end.

Câu 1 :

uses crt;
var  s1 : string[15];i: integer;
begin clrscr;
write('Nhap xau do :');  readln(s1);
for i:=1 to length(s1) do writeln(s1[i]);
readln
end.

Câu 2 :

uses crt;
var  st : string[15]; i: integer; d,d1,d2 : integer;
begin clrscr;  d:=0;d1:=0;d2:=0;
write('Nhap xau do :');  readln(st);
for i:=1 to length(st) do begin
if st[i] in ['A'..'Z'] then d:=d+1;
if st[i] in ['a'..'z'] then d1:=d1+1;
if st[i] in ['0'..'9'] then d2:=d2+1; end;
writeln('So luong chu hoa :',d);
writeln('So luong chu thuong :',d1);
writeln('So luong chu so :',d2);
readln
end.