Pascal Deret Angka

Dalam memenuhi Test Praktikum satu. dengan pembuatan program deret angka dengan menggunakan Program pascal Sebagai compiler-nya. logikanya menggunakan For to, sedangkan dalam pengulanya coba lagi menggunakan while, bisa juga menggunakan repeat, tergantung suka yang mana, berikut coding nya


program afif1;
uses wincrt;

var
i:integer;
hasil:real;
try:char;

begin
     try:='y';
     while try='y' do
     begin
          for i:=1 to 5 do
          begin
               hasil:=exp(i*ln(3));
               writeln(hasil:1:0);
          end;
     write('coba lagi??{y/t}');readln(try);
     if try='t'then
     try:='t';
     end;
end.

pascal deret angka