pastebin

pastebin

Paste Search Dynamic
Recent pastes
pegunungan
  1. program Zulfiansyah;
  2. var
  3.     n : longint;
  4.  
  5. //Menggambar
  6. procedure pegunungan(x : longint);
  7. var i : longint;
  8. begin
  9.     if (x = 1) then
  10.         writeln('*')
  11.     else
  12.     begin
  13.         pegunungan(x-1);
  14.         for i := 1 to x do
  15.             if i <> x then
  16.                 write('*')
  17.             else
  18.                 writeln('*');
  19.         pegunungan(x-1);
  20.     end;
  21. end;
  22. begin
  23.     readln(n);
  24.     pegunungan(n);
  25. end.
Parsed in 0.007 seconds