program name;
var
k,i,anim,land:integer;
an:string;
a:image;
procedure key();
begin
k:=getkeypressed;
if k=ke_key2 then
begin
land:=20;
end;
if k=ke_key8 then
begin
land:=23;
end;
anim:=anim+1;
if anim=2 then anim:=0;
end;
begin
land:=20;
for i:=20 to 26 do
a:=li(i+'.PNG');
while true do
begin
key;
an:=integertostring(land)+integertostring(anim);
sc(255,255,255);
fr(0,0,240,320);
drawimage(an,50,50)
end;
end.