From: Luis Fernandes <elf@mailhost.ee.ryerson.ca>
Newsgroups: alt.humor.best-of-usenet
Subject: [alt.folklore.computers] Pascal Problems
Date: 17 Jan 1997 10:22:02 -0700

Subject: Re: Pascal Problems 
From: Ken Smith <kensmith@rahul.net>
Newsgroups: alt.folklore.computers

George Li <georgeli@ecs.school.net.hk> wrote:
>Hi all :	
>	I want to use For-DO or While-Do to draw above picture.
>
>              *                     *****
>             **                      ****
>            ***                       ***
>           ****                        ** 
>          *****                         *
>           (a)                       (b)
>

For i:=1 to 1 do begin
  writeln('    *');
  writeln('   **');
  writeln('  ***');
  writeln(' ****');
  writeln('*****');
  writeln('Do your own home work!');
  end;