1、
VAR
   i, j: INTEGER;
BEGIN
    FOR i:=1 TO 5 DO BEGIN
        FOR j:=1 TO 5 - i DO WRITE(' ');
        FOR j:=1 TO i * 2 - 1 DO WRITE(i);
        WRITELN;
    END;
END.
2、
VAR
   n: INTEGER;
BEGIN
    READLN(n);
    IF n < 100 THEN WRITELN(10);
    IF (n >= 100) AND (n < 110) THEN WRITELN(30);
    IF (n >= 110) AND (n < 120) THEN WRITELN(50);
    IF (n >= 120) AND (n < 130) THEN WRITELN(70);
    IF n >= 130 THEN WRITELN(80);
END.
3、(p为每公里运费)
VAR
   n, p, s: INTEGER;
BEGIN
    READLN(p, s);
    n := p * s;
    IF s < 250 THEN WRITELN(n);
    IF (s >= 250) AND (s < 500) THEN WRITELN(n / 100 * 98);
    IF (s >= 500) AND (s < 1000) THEN WRITELN(n / 100 * 95);
    IF (s >= 1000) AND (s < 2000) THEN WRITELN(n / 100 * 92);
    IF s >= 2000 THEN WRITELN(n / 100 * 90);
END.

4、
VAR
   n, a, b, c, t: INTEGER;
BEGIN
    READLN(n);
    a := n DIV 100; b := (n - a * 100) DIV 10; c := n MOD 10;
    IF a < b THEN BEGIN t := a; a := b; b := t; END;
    IF a < c THEN BEGIN t := a; a := c; c := t; END;
    IF b < c THEN BEGIN t := b; b := c; c := t; END;
    WRITELN(a * 100 + b * 10 + c);
END.
5、
VAR
   i: INTEGER; k: REAL;
BEGIN
    k := 11;
    FOR i:=5 DOWNTO 2 DO BEGIN
        k := (k + 1 / i) / (i - 1) * i;
    END;
    WRITELN(k);
END.
运行结果：
59（由于是实型，结果是用科学计数法输出的）

1、4、5用循环语句做，2、3、4用IF语句做。