S 1, s, a, b, c, d, e, f, g, q, z, h, I: longint;
T: 부울;
Qf, ZF, HW: array 의 char [1... 7]
시작
읽기 (a, b, c, d, e, f, g);
A>= 175 인 경우 시작
Inc (q);
Qf [q]: =' a';
끝;
B>= 175 인 경우 시작
Inc (q);
Qf [q]: =' b';
끝;
H: = 2;
Hw [1]: =' c';
Hw [2]: =' d';
E>= 175 인 경우 시작
Inc (q);
Qf [q]: =' e';
T:= 참;
끝;
Inc (h);
Hw [h]: =' e';
F>= 173 인 경우 시작
Inc (z);
Zf [z]: =' f';
끝;
G>= 173 인 경우 시작
Inc (z);
Zf [z]: =' g';
끝;
I:= 1 ~ Q- 1 do 의 경우
S1:= s1+I;
S: = s1;
S1:= 0;
S: = s * z;
I:= 1 ~ h- 1 do 의 경우
S1:= s1+I;
S: = s * s1;
S1:= 0;
T 그렇다면 s: = s-(q-1) * z * (h-1);
쓰기;
끝내다.