program  //jjjj
integer a1 ,a2;//kkk
logical b1
begin
//a1:=a1+(a1-3*3);
//b1:=not true;

//-------------if語句--------------------\
//if b1 then                             |
//	 a1:=4;                          |
//	 else                            |
//	 a2:=5;                          |
//	 if b1 then                      |
//		a1:=a1+a2                |
//	 else                            |
//		a1:=a1-a2                |
//	 end                             |
//end                                    |
//---------------------------------------/

//-------------repeat語句----------------\
//                                       |
//repeat                                 |
//	a1:=a2                           |
//until                                  |
//	b1                               |
//---------------------------------------/

//-------------write語句-----------------\
//write a1+a2-4                          |
//---------------------------------------/

//-------------read語句------------------\
//read a1                                |
//---------------------------------------/

//-------------while語句-----------------\
//while a1=3                             |
//do                                     |
//a2:=a1;                                |
//a1:=a1-1                               |
//end;                                   |
//---------------------------------------/

//------------函數(shù)-----------------------\
//procedure my(integer a1,a2)            |
//integer a3                             |
//begin                                  |
//	procedure myy(integer a5,a6)     |
//	integer a4                       |
//	begin                            |
//		a4:=a1+a2                |
//	end                              |
//                                       |
//	a3:=a1+a2                        |
//end                                    |
//                                       |
//call my 1 3                            |
//---------------------------------------/
procedure my(integer a3,a4,a5)
begin
write a3+a4*a5
end

a1:=1;
a2:=3;
call my a1 a2 5;

while (a2>0)
do
a2:=a2-1;
write a2
end;

b1:=false;
b1:=not b1;

if b1 then
write a1
end;

repeat 
write a1;
a1:=a1+1
until a1=3
//a1:=1;
//for a1 from 1 to 6
//do
//read a2;
//write a2
//end


end.