Program Iterasi (Melukis Z)

Fungsi:  Melukis huruf Z dengan karakter ‘*’ sebesar jumlah perulangan yang di inputkan

Hint : Masukan angka untuk menentukan besar huruf Z

Screen Shot:

uses crt;

var n,i,a:integer;

begin

readln(n);

for i:=1 to n do

begin

for a:=1 to n do

begin

  if (i=1) or (i=n) then

   write('#')

  else if (i<>1) and (i<>n) then

   begin

   if a+i=n then

     write('#')

     else

   write(' ');

   end;

     end;

     writeln;

     end;

readln;

end.