program hren;
var x,y,key: integer;
begin
key:=getKeyPressed;
x:=50; y:=10;
repeat
sc(0,0,0);
fr(0,0,240,320);
sc ($ffffff);
dr(x,y,50,50);
rep;
until key:=KE_STAR;
end.