-

:



 

Begin

End

X: =A+B

 

 

, .

 

 

X: =A+B

x

">

 

 

.

 

Read (x, y)

Write (x, y)

x=b

 

x=a

 

_ _

+

.

a b, x=a , x=b.

 

 

If a>b then X: =a

else X:=b

 

x=a

 

_ _ _

+

.

a b, x=a.

If a>b then x:=a

K:=K+1

 

-: : i<6

i:=i+2

 

i=1

 

_

+

+

. i<6 , =+1 i=i+2. i .

 

i: =1;

While i<6 do

Begin

K: =K+1;

i: =i+2;

End;

Write(K);

 

 

 

i:=i+0,1

 

-: : K

K:=K+1

 

i=1

 

- +

_ +

.

i>6 , =+1 i=i+0,1. i .


 

 

i: =1;

Repeat

K: =K+1;

i: =I+0.1;

Until I>6;

Write(K);

-: : K

i:=i+1
 
K:=K+S
 


i=1
 





+

.

i .

6

, K=K+S

i=i+1.

 

For i: =1 to 6 do

K: =K+S;

Write(K);