Program Pekan dan Hari dengan Pascal

program pekandanhari3;
uses crt;
var pekan:integer;
    hari:integer;
    begin
    clrscr;
    writeln(' pekan','hari');
    writeln('--------------');
    readln;
    for pekan:=1 to 4 do
    begin
    for hari:=1 to 7 do
    begin
    writeln('   ',pekan,'   ',hari);
    end;
    writeln('-------------');
    readln;
    end;
    end.