., 338021, , ., ., .,94.

. .. " " (, "", 1989 ., .148-150).

"". . , "". PRINT LPRINT .

2 PRINT
5 PRINT
10 INPUT " ";
20 FOR l=1 TO
30 INPUT " "; (1); "",U(I)
40 INPUT " "; (I) ;"";1 (I)
50 P(I)=U(I)*I(I)
60 PTR=P+P(I)
70 NEXT I
80 S=SQR(PTR)
90 INPUT " ";
100 C=S/A
110 W=48/S
120 INPUT " CET";US
130 WD=US*W
140 IF PTR<16 THEN WUT=60/S:GOTO 240
150 IF PTR<26 THEN WUT=56/S:GOTO 240
160 IF PTR<36 THEN WUT=55/S:GOTO 240
170 IF PTR<51 THEN WUT=54/S:GOTO 240
180 IF PTR<75 THEN WUT=52/S:GOTO 240
190 WUT=50/S
195 DD=1,13SQR (PTR/US)
200 PRINT " " PTR;""
210 PRINT " " ;S; "."
220 PRINT " ";;""
225 PRINT
230 PRINT " K";WD
235 PRINT " ";DD;"MM"
240 FOR I=1 TO
250 WUO(I)=WUT*U(I)
260 D(I)=0.7*SQR(I(I))
265 PRINT
270 PRINT " ";1+1 ;" ;WUO(I)
280 PRINT "A ";D(I);""
300 NEXT I
310 PRINT " ? -1 -0"
320 INPUT X
330 IF X=1 GOTO 10
340 END


11/93, c.14.