program Mypr;
var
d:int;
begin
d:=drawimage(loadimage('/d.png'),1,5);
repaint;
delay(1000);
end;
end.