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.
Belum ada tanggapan untuk "Program Pekan dan Hari dengan Pascal"
Posting Komentar