program name;
var i:integer;
begin
drawText('1',10,10);
repaint;
while (true) do
  delay(5);
end.