Subversion Repositories svnkaklik

Rev

Rev 294 | Go to most recent revision | Details | Last modification | View Log

Rev Author Line No. Line
293 kakl 1 
program sumo_kakl;
2 
 
3 
var i;
4 
var ble;
5 
 
6 
LMOT := 30;
7 
RMOT := -30;
8 
 
9 
ble:=0;
10 
while ble<25 do ble:=ble+1; end;
11 
 
12 
LMOT := 30;
13 
RMOT := 30;
14 
 
15 
ble:=0;
16 
while ble<100 do ble:=ble+1; end;
17 
 
18 
LMOT := 30;
19 
RMOT := -30;
20 
 
21 
while true
22 
do
23 
	if LEYE < 0 then
24 
		LMOT := -30;
25 
		RMOT := -30;
26 
		ble:=0;
27 
		while ble<100 do ble:=ble+1; end;
28 
		continue;
29 
	end;
30 
	if REYE < 0 then
31 
		RMOT := -30;
32 
		LMOT := -30;
33 
		ble:=0;
34 
		while ble<100 do ble:=ble+1; end;
35 
		continue;
36 
	end;
37 
end;