for to do

program copy_paste;
uses wincrt;
var
 i: integer;
 lagi : char;
begin
     lagi := 'Y';
     while (lagi='Y') or (lagi='y') do
          begin
              clrscr;
              for i:= 1 to 5 do
                begin
                    writeln(i);
                    writeln('kunjungi blog copy paste saya');
                    writeln;
                end;
                   begin
                        writeln('ingin mengulang (Y/T)?');
                        readln(lagi);
                        clrscr;
                   end;
          end;
 end.