program mang;
uses crt;
var x,y, kiirusx, kiirusy:real; ax, arv: integer;
    ots:boolean;c: char;

procedure kirjutaK(kx, ky: integer);
begin
 gotoxy(kx,   ky  ); writeln(' ** ');
 gotoxy(kx,   ky+1); writeln('****');
 gotoxy(kx,   ky+2); writeln(' ** ');

 end;

procedure liigu;
begin
 textcolor(black);
 gotoxy(round(x), round(y)); kirjutaK(round(x), round(y));

if x<5 then kiirusx:=abs(kiirusx);
if x>70 then kiirusx:=-abs(kiirusx);
x:=x+kiirusx;
if y<3 then kiirusy:=abs(kiirusy);
if y>19 then kiirusy:=-abs(kiirusy);
y:=y+kiirusy;
 textcolor(white);
 gotoxy(round(x), round(y));
 kirjutaK(round(x),round(y));
 delay(50);
if (round(y)=15) and (round(x)>ax-3) and (round(x)<ax+3) then
    begin
    delay(400);
    textcolor(black);
    gotoxy(round(x), round(y));
    kirjutaK(round(x),round(y));
    textcolor(white);
    inc(arv);
    gotoxy(10,23);
    write(arv);
    gotoxy(ax, 15);
    write('____');
    x:=1; y:=1;
    kiirusx:=0.6*random+0.1;
    kiirusy:=0.4*random+0.05;
    end;
  end;

  procedure liiguta;
  var c:char;
  begin
    if keypressed then
begin
c:=readkey;
if
c=chr(27) then ots:=true;
if c=chr(0) then
  begin
  c:=readkey;
  textcolor(black);
  gotoxy(ax,15); write('____');
  if (c='K') and (ax>3) then ax:=ax-1;
  if (c='M') and (ax<75) then ax:=ax+1;
  textcolor(white);
  gotoxy(ax,15); write('____');
  end;
end;
end;
begin
  randomize;
  x:=10; y:=3; ax:=30; kiirusx:=0.9; kiirusy:=0.6; arv:=0;
  gotoxy(10,23);
  write(arv);
  clrscr;
  gotoxy(ax, 15); write('____');
repeat;
liigu;
liiguta;
delay(50);
until ots;
  TextMode(LastMode);
  readln;
end.