program name;
var
  k,i,anim: Integer;
  an, lan, ani: String;
  a: array[27] of Image;

function land(k): Integer;
  begin
    if k=ke_key2 then land:=20;
    if k=ke_key8 then land:=23;
  end;

begin
  land:=20;
  anim:=0;
  for i:=20 to 26 do begin
    a[i]:=loadImage(i+'.PNG');
  end;
  while true do begin
    k:=getkeypressed;
    land(k);
    anim:=anim+1;
    if anim=2 then anim:=0;
    lan:=integertostring(land);
    ani:=integertostring(anim);
    an:=lan+ani;
    sc(255,255,255);
    fr(0,0,240,320);
    drawimage(an,50,50);
    repaint;
  end;
end.