a.perulangan

Uses crt;
const
akhir = 1;
var
baris,kolom : integer;
begin
clrscr;
for baris := akhir to 5 do
begin
for kolom := baris to 5 do
write(kolom);
writeln;
end;
readln;
end.

b. perulangan 2

Uses crt;
 var
  i,j,k,l,m,n,o,p,q,r,s,t : byte;
begin
  clrscr;
  write('Masukan angka 10 = '); readln(j);
  writeln;
  textcolor(yellow);
  repeat
    i:=j-1;
    write('hari ke 1:');
    writeln('10 ayam mati 1 tinggal',' ',i);
  until i<10;
  repeat
   k:=i-1;
   write('hari ke 2:');
    writeln('9  ayam mati 1 tinggal',' ',k);
  until k<9 ;
  repeat
   l:=k-1;
   write('hari ke 3:');
    writeln('8  ayam mati 1 tinggal',' ',l);
  until l<8 ;
  repeat
   m:=l-1;
   write('hari ke 4:');
    writeln('7  ayam mati 1 tinggal',' ',m);
  until m<7 ;
   repeat
   n:=m-1;
   write('hari ke 5:');
    writeln('6  ayam mati 1 tinggal',' ',n);
  until n<6 ;
   repeat
   o:=n-1;
   write('hari ke 6:');
    writeln('5  ayam mati 1 tinggal',' ',o);
  until o<5 ;
   repeat
   p:=o-1;
   write('hari ke 7:');
    writeln('4  ayam mati 1 tinggal',' ',p);
  until p<4 ;
   repeat
   q:=p-1;
   write('hari ke 8:');
    writeln('3  ayam mati 1 tinggal',' ',q);
  until q<3 ;
   repeat
   r:=q-1;
   write('hari ke 9:');
    writeln('2  ayam mati 1 tinggal',' ',r);
  until r<2 ;
   repeat
   s:=r-1;
   write('hari ke 10:');
    writeln('1  ayam mati 1 tinggal',' ',s);
  until s<1 ;
  write('hari ke 11:');
    writeln('Ayam mati semua');
    readln;
end.

  c.flowchart