Program Tao_bang;
Uses Crt;
Var
 i: byte;    {chi so cua hang}
 j: byte;    {chi so cua cot}
Begin
Clrscr;{xoa man hinh}
 For i:=0 to 9 do  {viet theo tung hang}
 begin
 For j:=0 to 9 do  {viet theo tung cot tren moi hang}
       write(10*i+j:4);  {viet cac so ij ra man hinh}
       writeln;    {xuong hang moi}
 end;  {xong hang thu i}
 readln;           {dung chuong trinh de xem ket qua}
end.

Một xâu được gọi là chuẩn nếu đầu và cuối xâu không có ký tự trống, đồng thời
trong xâu không có 2 ký tự trống kề liền. Cho xâu S không quá 500 kí tự.
Yêu cầu: - Chuẩn hóa xâu đã nhập.

- Tìm số lượng kí tự chữ số trong xâu.

Dữ liệu vào: Xâu kí tự S.
Dữ liệu ra: Dòng 1: In ra xâu đã chuẩn hóa.
Dòng 2: In ra số lượng kí tự chữ số.

begin

  writeln('15*4-30+12=',15*4-30+12);

  writeln('(10+5)/(3+1)-18/(5+1) =',(10+5)/(3+1)-18/(5+1));

  writeln('(10+2)*(10+2)/(3+1)=',(10+2)*(10+2)/(3+1));

  write('((10+2)*(10+2)-24)/(3+1)=',((10+2*(10+2)-24)/(3+1));

  readln

end.

uses   crt;

var    N, i: integer;

begin

       clrscr;

       write('Nhap so N=');readln(N);

       writeln;

       writeln('Bang nhan, ',N);

       writeln;

       for i:=1 to 10 do

       begin

               GotoXY(5,WhereY);

               writeln(N,'x',i:2,'=',N*i:3);

               writeln

       end;

       readln

end.