program name;
var i:integer;
begin
i:=1;
if (i>0) then
    drawText('Hello',5,5)
else
    drawText('world',5,5);
repaint;
delay(5000);
end.