program ololo;
var
 h: String;
begin
 h:='Hello, World!';
 drawText(h, 10, 50);
 delay(1000);
 repaint;
 vibro(1000);
 drawText('vibro', 0, 0);
 repaint;
 delay(5000);
end.