Программы с условием - Pascal ABC

var n,i,s:Longint;
begin
repeat
write('Сколько степеней числа 3 вывести от 1 до 20 n=');
readln(n);
until n in [1..20];
//от 3^0 до 3^19, дальше выход за пределы типа Longint
//цикл while
s:=1;
i:=0;
while i<n do
 begin
  writeln('3^',i,'=',s);
  s:=s*3;
  i:=i+1;
 end;
//цикл repeat
s:=1;
i:=0;
repeat
  writeln('3^',i,'=',s);
  s:=s*3;
  i:=i+1;
until i=n;
end.