... Write('-Nhap mot so thuc = ');
Readln(so_thuc);
Writln;
GIAO TRINH LY THUYET VA BAI TAP TURBO PASCAL -CHUONG 1
Dang Thanh Tuan(15/3/2004)
**********0101**********
Program PTB2;
Var
...
ky_tu :Char;
chuoi :string[24];
so_nguyen:Integer;
so_thuc:Real;
Begin
Writeln(&apos ;CHUONG TRINH XUAT DU LIEU THEO KHUON DANG');
Write('-Nhap mot ky tu = &apo...