1、（老帖里有，有关内容请看[url=http://www.programfan.com/club/post-242823.html]这张帖子[/url]2楼回复）。

3、
PROCEDURE pri(m: INTEGER);
BEGIN
    CASE m OF
    1: WRITE('red');
    2: WRITE('blue');
    3: WRITE('yellow');
    4: WRITE('green');
    END;
WRITE(' ');
END;
VAR
   i, j, k, s: INTEGER;
BEGIN
    FOR i:=1 TO 4 DO BEGIN
        FOR j:=1 TO 4 DO BEGIN
            IF (i <> j) THEN BEGIN
               FOR k:=1 TO 4 DO BEGIN
                   IF (i <> k) AND (j <> k) THEN BEGIN
                      pri(i); pri(j); pri(k); WRITELN; s := s + 1;
                   END;
               END;
            END;
        END;
    END;
    WRITELN(s);
END.

4、
TYPE arr = ARRAY[1..255] OF CHAR;
VAR
   a: arr; i, j, n: INTEGER; t, ch: CHAR;
BEGIN
    REPEAT
         READ(ch);
         IF ch <> ' ' THEN BEGIN n := n + 1; a[n] := ch; END;
    UNTIL ch = ' ';
    FOR i:=1 TO n - 1 DO BEGIN
        FOR j:=i + 1 TO n DO BEGIN
            IF a[i] > a[j] THEN BEGIN t := a[i]; a[i] := a[j]; a[j] := t; END;
        END;
    END;
    FOR i:=1 TO n DO WRITE(a[i]);
END.

我是要分成完全平方数啊.

PROCEDURE pri(m: INTEGER);是ＷＨＡＴ？