1 program
13 source
23 ;
2 var
13 x_1
20 ,
13 x
20 ,
13 y
20 ,
13 z
19 :
11 integer
23 ;
13 a
19 :
11 integer
23 ;
13 b
19 :
12 real
23 ;
4 begin
13 x_1
22 :=
14 5.5
23 ;
13 b
22 :=
14 5.2
23 ;
13 x
22 :=
14 23
15 +
14 5
23 ;
13 y
22 :=
13 z
15 +
14 18
18 /
13 a
23 ;
13 x
22 :=
14 2
16 -
14 5
23 ;
13 y
22 :=
14 9
17 *
13 a
23 ;
13 x
22 :=
16 -
14 2
23 ;
9 while
13 x
26 <>
14 8
10 do
4 begin
6 if
13 x
28 >
14 2
7 then
13 x
22 :=
14 5
23 ;
5 end
23 ;
9 while
13 x
29 >=
14 8
10 do
13 x
22 :=
14 5
23 ;
6 if
13 x
28 >
14 2
7 then
4 begin
13 x
22 :=
14 5
23 ;
5 end
23 ;
6 if
13 a
29 >=
14 2
7 then
13 x
22 :=
13 x
15 +
14 7
8 else
13 x
22 :=
13 x
15 +
14 9
23 ;
13 z
22 :=
13 x
18 /
14 6
23 ;
13 a
22 :=
13 x
15 +
13 z
23 ;
6 if
13 x
29 >=
14 2
7 then
13 x
22 :=
13 x
15 +
14 7
23 ;
5 end
21 .
评论13
最新资源