Помогите сделать задачу по паскаль.

[aleksandr_dss]

Нужно сделать через repiat и while:
Дано натуральное число n и вещественное число а. Вычислить и напечатать без использования операции возведения в степень:
sina+sina^2+...+sina^n.

[puporev]

uses crt;
var n,i:integer;
    a,t,sm:real;
begin
clrscr;
write('n=');readln(n);
write('a=');readln(a);
i:=1;t:=sin(a);sm:=0;//первое значение t=sina;
while i<=n do
    begin
     sm:=sm+t;//первый раз сумма=sina
     t:=t*sin(a);//второй раз t=sin^2a, и так далее
     i:=i+1;
   end;
writeln('Sm=',sm:0:5);
i:=1;t:=sin(a);sm:=0;
repeat
 sm:=sm+t;
 t:=t*sin(a);
 i:=i+1;
until i>n;
writeln('Sm=',sm:0:5);
readln
end.