Нарисовать программу "звезда" в delphi

        '     1)Напиши программу, выводящую на экран степени числа 3 в интервале от а до b включительно (а и b задаются пользователем).    
   
Dim a As Integer
Dim b As Integer 
Dim i As Integer   

a = InputBox("Введите а") 
b = InputBox("Введите b")
   
Dim msg As String     
msg = ""   
     
For i = a To b     
       msg = msg &  3 в степени " & i & " равно " & 3 ^ i & vbCrLf   
 Next   

MsgBox(msg)

2)Найти все делители числа 1204.   

Dim i As Integer       
Dim msg As String   
msg = ""     

For i = 1 To 1204 
          If 1204 Mod i = 0 Then     
                  msg = msg & "Число " & i & " является делителем 1204." & vbCrLf                  End If   
Next 
  MsgBox(msg)

1. Основная трудность при чтении египетских иероглифов в том, что большинство египтян не имели понимания древнегреческой системы иероглифов.
2. Египтяне использовали значки-определители для того, чтобы лучше было читать. Значки-определители служили для звучаний слов.
3. Потому что само чтение или писание древнегреческих иероглифов было сложно , так как в то время образования было ужасным.
4. Первым, кому удалось расшифровать египетские иероглифы, был французский учёный, Жан-Франсуа Шампольон(1790-1832). Он составил полный список иероглифов и их греческих эквивалентов, создав тем самым основу для перевода всех египетских иероглифических текстов.
5. Основным носителем информации в египте являлись глиняные таблички, папирусные свитки и наскальные надписи.
6. Стебли растения разрезали на полосы, которые переплетали между собой, прессовали и высушивали на солнце.
7. Хранили в глиняных кувшинах и шкатулках.