Senin, 23 April 2012

Program Bintang;


program bintang;
uses crt;
var
j,n,i:integer;

begin
readln(n);
for i:=1 to n do
   begin
   for j:=1 to i do
     begin
       write('*');
     end;
       writeln('');
     end;
for i:=n-1 downto 1 do
     begin
     for j:=i downto 1 do
      begin
      write('*');
      end;
      writeln('');
      end;
     readln;
end.

Tidak ada komentar:

Posting Komentar