Education-Sharing

program deret1;
uses crt;
var
   n,i:integer;
   jwb:char;
   begin
        clrscr;
        jwb:='Y';
        while (jwb='Y') or (jwb='y') do
        begin
        write('Inputkan Angka :');readln(n);
        for i:= 1 to n do
        write(4*i-1, ' ');
        readln;
               begin
               writeln('Hitung Lagi ?????.... ^_^ [y/t]:');
               readln (jwb);
               end;
        end;
   end.