uses crt;
var st,k,t:string;
    d,dem,i:integer;
begin

clrscr;

readln(st);

d:=length(st);

k=''

dem=1;

for i:=2 to d do

      begin 

        if st[i]=st[i-1] then inc(dem);

        if st[i]<>st[i-1] then

        btegin

          str(dem,t);

          if dem>1 then k:=k+t+st[i-1];

          else k:=k+st[i-1];

          dem=1;

        end;

        if (i=d) then 

           begin

           str(dem,t);

           if dem>1 then k:=k+t+st[i];

           else k:=k+st[i];

           end;

    end;

    write(k);

readln;

end.

program  Nenxau;

var s: string;
        i, count: integer;
        c: char;

begin
  readln(s);
  count := 1;
  c := s[1];
  for i := 2 to length(s) do
    begin
      if s[i] = c then
        inc(count)
      else
        begin
          write(count);
          write(c);
          count := 1;
          c := s[i];
        end;
    end;
  write(count);
  write(c);
end.

uses crt;

var a:int64;

begin

clrscr;

readln(a);

writeln(a*4);

readln;

end.

phân số chỉ số m đường còn lại sau khi làm xong tuần lễ đầu là :

    1−14=341−14=34   ( quãng đường )

phân số chỉ số m đường tuần lễ thứ 2 làm là :

      45⋅34=3545⋅34=35 ( quãng đường )

phân số chỉ số m đường sửa vào tuần lễ thứ 3 là :

                1−14−35=3201−14−35=320 ( quãng đường )

   Quãng đường AB dài số m là :

      1500 : 320320 = 10 000 ( m)

  đổi 10 000 m = 10 km

Em tham khảo: 

1. Tony đang chơi với một con dao bén (sắc).

He may cut himself.

Cậu ấy có thể bị đứt tay

2. Linda đang chơi với một con mèo của hàng xóm.

It may scratch her face. Nó có thể cào mặt của cô ấy.

3. Quân đang đi xe đạp quá nhanh.

He may fall of his bike. Cậu ấy có thể té/ngã xe.

Tổng là : 36 x 2 = 72 

 Số kia là : 72 - 50 = 22

~ HT ~

```pascal
program TimSoNguyenTrongSoN;
uses crt;

procedure TimSoNguyenTrongSoN(n: integer);
var
n_str: string;
so_nguyen_xuat_hien: array of integer;
temp: string;
i, j, so: integer;
begin
n_str := IntToStr(n);
SetLength(so_nguyen_xuat_hien, 0);

for i := 1 to Length(n_str) do
begin
temp := ''
for j := i to Length(n_str) do
begin
temp := temp + n_str[j];
if TryStrToInt(temp, so) then
begin
SetLength(so_nguyen_xuat_hien, Length(so_nguyen_xuat_hien) + 1);
so_nguyen_xuat_hien[Length(so_nguyen_xuat_hien) - 1] := so;
end;
end;
end;

writeln('Cac so nguyen xuat hien trong so ', n, ' la:');
for i := 0 to Length(so_nguyen_xuat_hien) - 1 do
begin
writeln(so_nguyen_xuat_hien[i]);
end;
end;

var
n: integer;
begin
clrscr;
write('Nhap vao so n: ');
readln(n);
TimSoNguyenTrongSoN(n);
readln;
end.
```