파밍 파스칼은 이렇게 썼습니다

변수를 정의합니다

A, st:array[0..9] 의 문자열;

C: 배열 [0..9] 의 부울;

I, j, n: longint;

Str: 문자열;

프로세스 try (t: longint);

변수를 정의합니다

나: 갈망

시작

T> 가 {출력} 을 (를) 시작하면

I:= 1 끝 T-2 do 의 경우

쓰기 (a[i],'-');

Writeln (a [t-1]);

끝;

I:= 1 끝 n do 의 경우

C[i] 라면 {이 이름이 사용되지 않으면 이 이름 사용}

시작

C [I]: = false;

A [t]: = ST [I]; {주문 기록}

시도 (t+1);

C [I]: = true;

끝;

끝;

시작

Readln (n);

I:= 1 끝 n do 의 경우

Readln (ST [I]);

I:= 1 ~ n- 1 do 의 경우

For j:=i+ 1 끝 n do {사전 순서 출력용 정렬}

St [I] > 그런 다음 시작하십시오.

Str: = ST [I]; St [I]: = ST [j]; St [j]: = str;

끝;

Fillchar(c, sizeof(c), true);

시도 (1); {프로세스 시작)

끝내다.