Subversion Repositories svnkaklik

program sumo_kakl;

var i;
var ble;

LMOT := 30;
RMOT := -30;

ble:=0;
while ble<25 do ble:=ble+1; end;        

LMOT := 30;
RMOT := 30;

ble:=0;
while ble<100 do ble:=ble+1; end;       

LMOT := 30;
RMOT := -30;

while true
do
        if LEYE < 0 then
                LMOT := -30;
                RMOT := -30;
                ble:=0;
                while ble<100 do ble:=ble+1; end;       
                continue;
        end;
        if REYE < 0 then
                RMOT := -30;
                LMOT := -30;
                ble:=0;
                while ble<100 do ble:=ble+1; end;       
                continue;
        end;
end;