repeat
yeniyer:=random(8)+1;
case yeniyer of
1: begin yenis:=s-2*asama; yenik:=k-1*asama; end;
2: begin yenis:=s-2*asama; yenik:=k; end;
3: begin yenis:=s-2*asama; yenik:=k+1*asama; end;
4: begin yenis:=s; yenik:=k-1*asama; end;
5: begin yenis:=s; yenik:=k+1*asama; end;
6: begin yenis:=s+2*asama; yenik:=k-1*asama; end;
7: begin yenis:=s+2*asama; yenik:=k; end;
8: begin yenis:=s+2*asama; yenik:=k+1*asama; end;
end;
if ((yenis=2*a) and (yenik=b) and (yenis<2) and (yenis>20) and (yenik<1) and (yenik>10)) then
begin
yenis:=s; yenik:=k;
end;
until (yenis<>s) and (yenik<>k);
s:=yenis; k:=yenik;
biprogram yazıyorum.ama buraya sorun olan yeri kopyaladım.kosul bir turlu sağlanmıyo bi kaç değişik yolla denedim ama tam cozum bulamadım.asama yı 1 kabul edip; s ve k nın verdiğim sınırların dısına çıkmamamsaı lazım ama ben kontrol ettiiğimde bu tam olarak gerçeklesmiyo.yardım edebilecek varsa sevinirim.iyi gunler