program one;
uses crt;
var Arc,bat,Cat,Dog:integer;
begin
clrscr;
randomize;
asm
mov al, 13h
mov ah, 0
int 10h
mov al, 1
end;
Cat:= 0;
repeat
Arc:= random(320);
Bat:= random(200);

Dog:= random(10);
asm
mov ah, 0Ch
mov Cx, Arc
mov Dx, Bat
int 10h
inc Cat
inc al
end;
until cat = 40000;
readln;
end.