Loop 1

program smk;

var
    i, j, len : integer;
    sekolah   : string;

begin
    sekolah := 'SMK';
    len := length(sekolah);

    for i := 1 to len do
    begin
        for j := 1 to i do
        begin
            write(sekolah[j]);
        end;
        writeln;
    end;

    for i := len-1 downto 1 do
    begin
        for j := 1 to i do
        begin
            write(sekolah[j]);
        end;
        writeln;
    end;

end.