Siz kucuk bir yildizi kovaliyorsunuz.Onu yakalamalisiniz.Her yakalayisinizda +100 puan alacaksiniz.bu oyunu oklarla oynuyorsunuz
Uses crt;
Var
fr,scor,o,z,ux,uy,x,y:Integer;
ch,tus:Char;
a:Boolean;
az:array[1..5] of boolean;
Procedure yon(ch:char);
Begin
fr:=0;
case ch of
#77:If x<80...