Contoh Program Sederhana Repeat

program pdhwd;
uses crt;

var pekan:integer;
    hari:integer;


begin

clrscr;
pekan:=1;
hari:=1;

  repeat hari<=1;

  begin

      until hari<=7;
      begin
      writeln('pekan ',pekan,' hari ',hari);
      hari:=hari+1;
      end;
  pekan:=pekan+1;

  end;


  readln;

end.