Winnie Leung    F.4CA   (22)
HW3 (I)  ----  BK2 P.16 #2
program printleftstr(input, output);
uses wincrt;
const word  =  'PASCAL';
var     count      :integer;
        subword    :string;
begin
    for count :=1 to length ( word ) do
       begin
           subword  :=  copy (word, 1, count);
           writeln(subword)
        end
end.